home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / system / System.p < prev    next >
Encoding:
Text File  |  2004-01-31  |  145.1 KB  |  4,008 lines
  1. pTempVar <- <primitive 110 7 >
  2. <primitive 112 pTempVar 1  " printString " \
  3.   #( #[ 16r30 16rF3 16rF5] \
  4.     #( 'PrinterFlags'  )) >
  5.  
  6. <primitive 112 pTempVar 2  " systemTag: " \
  7.   #( #[ 16r52 16r11 16r21 16rFA 16r03 16rCE 16rF3 16rF5] \
  8.     #(  )) >
  9.  
  10. <primitive 112 pTempVar 3  " close " \
  11.   #( #[ 16r50 16r12 16r11 16rFA 16r03 16rCE 16r62 16r5D 16rF1 16r61 16rF3 \
  12.         16rF5] \
  13.     #(  )) >
  14.  
  15. <primitive 112 pTempVar 4  " privateSetup " \
  16.   #( #[ 16r10 16rA1 16rF7 16r13 16r20 16r80 16r00 16r60 16r31 16r63 16r53 \
  17.         16rFA 16r01 16rCE 16r61 16r51 16r13 16r11 16rFA 16r03 16rCE \
  18.         16r62 16r5D 16rF2 16r20 16rF3 16rF5] \
  19.     #( #privateNew 'AmigaTalk:prelude/listFiles/Printer.dictionary'  )) >
  20.  
  21. <primitive 112 pTempVar 5  " new " \
  22.   #( #[ 16r20 16r80 16r00 16rF3 16rF5] \
  23.     #( #privateSetup  )) >
  24.  
  25. <primitive 112 pTempVar 6  " privateNew " \
  26.   #( #[ 16r51 16rFA 16r01 16r6E 16r71 16r21 16rF3 16rF5] \
  27.     #(  )) >
  28.  
  29. <primitive 112 pTempVar 7  " isSingleton " \
  30.   #( #[ 16r5B 16rF3 16rF5] \
  31.     #(  )) >
  32.  
  33. <primitive 98 #PrinterFlags \
  34.   <primitive 97 #PrinterFlags #Object #AmigaTalk:System/PrinterFlags.st \
  35.    #(  #uniqueInstance #private0 #private1 #myName ) \
  36.    #( #printString #systemTag: #close #privateSetup #new #privateNew  \
  37.        #isSingleton  ) \
  38.   pTempVar 2 6 > #isSingleton >
  39.  
  40. pTempVar <- <primitive 110 29 >
  41. <primitive 112 pTempVar 1  " new " \
  42.   #( #[ 16r20 16r80 16r00 16rF3 16rF5] \
  43.     #( #privateSetup  )) >
  44.  
  45. <primitive 112 pTempVar 2  " privateSetup " \
  46.   #( #[ 16r10 16rA1 16rF7 16r1F 16r20 16r80 16r00 16r71 16r21 16r50 16rC9 \
  47.         16rF7 16r06 16r31 16r60 16r20 16rF3 16rF8 16r10 16rF2 16r32 \
  48.         16rA8 16rF2 16r05 16r15 16r21 16rFA 16r02 16rE6 16rA8 16rF2 \
  49.         16r5D 16rF1 16r60 16rF3 16rF2 16rF5] \
  50.     #( #privateOpen 'MyNarrator' 'Problem opening Narrator:'  )) >
  51.  
  52. <primitive 112 pTempVar 3  " new: " \
  53.   #( #[ 16r30 16rA8 16rF2 16r5D 16rF3 16rF5] \
  54.     #( 'Cannot use new: method on Narrator class!'  )) >
  55.  
  56. <primitive 112 pTempVar 4  " translateText: " \
  57.   #( #[ 16r05 16r14 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  58.     #(  )) >
  59.  
  60. <primitive 112 pTempVar 5  " speakPhonetics: " \
  61.   #( #[ 16r05 16r13 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  62.     #(  )) >
  63.  
  64. <primitive 112 pTempVar 6  " speak: " \
  65.   #( #[ 16r05 16r12 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  66.     #(  )) >
  67.  
  68. <primitive 112 pTempVar 7  " setFricationAmplitude: " \
  69.   #( #[ 16r05 16r11 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  70.     #(  )) >
  71.  
  72. <primitive 112 pTempVar 8  " setVoicingAmplitude: " \
  73.   #( #[ 16r05 16r10 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  74.     #(  )) >
  75.  
  76. <primitive 112 pTempVar 9  " setFlags: " \
  77.   #( #[ 16r30 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  78.     #( 15  )) >
  79.  
  80. <primitive 112 pTempVar 10  " setCentralizeValue: " \
  81.   #( #[ 16r30 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  82.     #( 14  )) >
  83.  
  84. <primitive 112 pTempVar 11  " setPhoneme: " \
  85.   #( #[ 16r30 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  86.     #( 13  )) >
  87.  
  88. <primitive 112 pTempVar 12  " setArticulation: " \
  89.   #( #[ 16r30 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  90.     #( 12  )) >
  91.  
  92. <primitive 112 pTempVar 13  " setPitchModulation: " \
  93.   #( #[ 16r30 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  94.     #( 11  )) >
  95.  
  96. <primitive 112 pTempVar 14  " setPriority: " \
  97.   #( #[ 16r30 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  98.     #( 10  )) >
  99.  
  100. <primitive 112 pTempVar 15  " setEnthusiasm: " \
  101.   #( #[ 16r59 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  102.     #(  )) >
  103.  
  104. <primitive 112 pTempVar 16  " setFormant3Amplitude: " \
  105.   #( #[ 16r58 16r53 16r21 16rFA 16r03 16rE6 16rF3 16rF5] \
  106.     #(  )) >
  107.  
  108. <primitive 112 pTempVar 17  " setFormant2Amplitude: " \
  109.   #( #[ 16r58 16r52 16r21 16rFA 16r03 16rE6 16rF3 16rF5] \
  110.     #(  )) >
  111.  
  112. <primitive 112 pTempVar 18  " setFormant1Amplitude: " \
  113.   #( #[ 16r58 16r51 16r21 16rFA 16r03 16rE6 16rF3 16rF5] \
  114.     #(  )) >
  115.  
  116. <primitive 112 pTempVar 19  " setFormant3: " \
  117.   #( #[ 16r57 16r53 16r21 16rFA 16r03 16rE6 16rF3 16rF5] \
  118.     #(  )) >
  119.  
  120. <primitive 112 pTempVar 20  " setFormant2: " \
  121.   #( #[ 16r57 16r52 16r21 16rFA 16r03 16rE6 16rF3 16rF5] \
  122.     #(  )) >
  123.  
  124. <primitive 112 pTempVar 21  " setFormant1: " \
  125.   #( #[ 16r57 16r51 16r21 16rFA 16r03 16rE6 16rF3 16rF5] \
  126.     #(  )) >
  127.  
  128. <primitive 112 pTempVar 22  " setRate: " \
  129.   #( #[ 16r56 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  130.     #(  )) >
  131.  
  132. <primitive 112 pTempVar 23  " setMode: " \
  133.   #( #[ 16r55 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  134.     #(  )) >
  135.  
  136. <primitive 112 pTempVar 24  " setPitch: " \
  137.   #( #[ 16r54 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  138.     #(  )) >
  139.  
  140. <primitive 112 pTempVar 25  " setSex: " \
  141.   #( #[ 16r53 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  142.     #(  )) >
  143.  
  144. <primitive 112 pTempVar 26  " setVolume: " \
  145.   #( #[ 16r52 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  146.     #(  )) >
  147.  
  148. <primitive 112 pTempVar 27  " privateOpen " \
  149.   #( #[ 16r51 16rFA 16r01 16rE6 16rF3 16rF5] \
  150.     #(  )) >
  151.  
  152. <primitive 112 pTempVar 28  " close " \
  153.   #( #[ 16r50 16r20 16rFA 16r02 16rE6 16rF2 16r55 16r50 16r20 16rFA 16r03 \
  154.         16rFA 16rF2 16r5D 16rF3 16rF5] \
  155.     #(  )) >
  156.  
  157. <primitive 112 pTempVar 29  " isSingleton " \
  158.   #( #[ 16r5B 16rF3 16rF5] \
  159.     #(  )) >
  160.  
  161. <primitive 98 #Narrator \
  162.   <primitive 97 #Narrator #Device #AmigaTalk:System/Narrator.st \
  163.    #(  #uniqueInstance ) \
  164.    #( #new #privateSetup #new: #translateText: #speakPhonetics: #speak:  \
  165.        #setFricationAmplitude: #setVoicingAmplitude: #setFlags: #setCentralizeValue: #setPhoneme:  \
  166.        #setArticulation: #setPitchModulation: #setPriority: #setEnthusiasm:  \
  167.        #setFormant3Amplitude: #setFormant2Amplitude: #setFormant1Amplitude: #setFormant3:  \
  168.        #setFormant2: #setFormant1: #setRate: #setMode: #setPitch: #setSex: #setVolume:  \
  169.        #privateOpen #close #isSingleton  ) \
  170.   pTempVar 2 5 > #isSingleton >
  171.  
  172. pTempVar <- <primitive 110 23 >
  173. <primitive 112 pTempVar 1  " new: " \
  174.   #( #[ 16r20 16r21 16r81 16r00 16rF3 16rF5] \
  175.     #( #current:  )) >
  176.  
  177. <primitive 112 pTempVar 2  " current: " \
  178.   #( #[ 16r10 16rA1 16rF7 16r10 16r20 16r80 16r00 16r60 16r05 16r28 16rA0 \
  179.         16r61 16r20 16r80 16r01 16rF2 16r20 16r21 16r81 16r02 16rF2 \
  180.         16r10 16rF3 16rF5] \
  181.     #( #privateNew #privateInitializeDictionary #open:  )) >
  182.  
  183. <primitive 112 pTempVar 3  " current " \
  184.   #( #[ 16r20 16r80 16r00 16rF3 16rF5] \
  185.     #( #privateSetup  )) >
  186.  
  187. <primitive 112 pTempVar 4  " privateSetup " \
  188.   #( #[ 16r10 16rA1 16rF7 16r0D 16r20 16r80 16r00 16r60 16r05 16r28 16rA0 \
  189.         16r61 16r20 16r80 16r01 16rF2 16r5D 16rF2 16r20 16rF3 16rF5 \
  190.        ] \
  191.     #( #privateNew #privateInitializeDictionary  )) >
  192.  
  193. <primitive 112 pTempVar 5  " getParFlag: " \
  194.   #( #[ 16r11 16r21 16rB1 16rF3 16rF5] \
  195.     #(  )) >
  196.  
  197. <primitive 112 pTempVar 6  " privateInitializeDictionary " \
  198.   #( #[ 16r11 16r30 16r31 16rD0 16rF2 16r11 16r32 16r33 16rD0 16rF2 16r11 \
  199.         16r34 16r35 16rD0 16rF2 16r11 16r36 16r37 16rD0 16rF2 16r11 \
  200.         16r38 16r39 16rD0 16rF2 16rF5] \
  201.     #( #PARF_EOFMODE 2r00000010 #PARF_ACKMODE 2r00000100 #PARF_FASTMODE \
  202.         2r00001000 #PARF_SLOWMODE 2r00010000 #PARF_SHARED 2r00100000  )) >
  203.  
  204. <primitive 112 pTempVar 7  " new " \
  205.   #( #[ 16r20 16r80 16r00 16rF3 16rF5] \
  206.     #( #privateSetup  )) >
  207.  
  208. <primitive 112 pTempVar 8  " privateNew " \
  209.   #( #[ 16r20 16r90 16r00 16r71 16r21 16rF3 16rF5] \
  210.     #( #new  )) >
  211.  
  212. <primitive 112 pTempVar 9  " close " \
  213.   #( #[ 16r50 16rFA 16r01 16rE0 16rF2 16rF5] \
  214.     #(  )) >
  215.  
  216. <primitive 112 pTempVar 10  " open: " \
  217.   #( #[ 16r51 16r21 16rFA 16r02 16rE0 16r72 16r22 16r50 16rCA 16rF7 16r0C \
  218.         16r30 16rA8 16rF2 16r52 16r22 16rFA 16r02 16rE0 16rA8 16rF2 \
  219.         16r5D 16rF3 16rF2 16r20 16rF3 16rF5] \
  220.     #( 'Error open Parallel device:'  )) >
  221.  
  222. <primitive 112 pTempVar 11  " readControlBitsMaskedBy: " \
  223.   #( #[ 16r30 16r21 16rFA 16r02 16rE0 16rF3 16rF5] \
  224.     #( 14  )) >
  225.  
  226. <primitive 112 pTempVar 12  " sendPortControlBits: " \
  227.   #( #[ 16r30 16r21 16rFA 16r02 16rE0 16rF3 16rF5] \
  228.     #( 13  )) >
  229.  
  230. <primitive 112 pTempVar 13  " setPortDirectionAtomic: " \
  231.   #( #[ 16r30 16r21 16rFA 16r02 16rE0 16rF3 16rF5] \
  232.     #( 12  )) >
  233.  
  234. <primitive 112 pTempVar 14  " setTerminatorsTo: " \
  235.   #( #[ 16r30 16r21 16rFA 16r02 16rE0 16rF3 16rF5] \
  236.     #( 11  )) >
  237.  
  238. <primitive 112 pTempVar 15  " writeToPort:thisLong: " \
  239.   #( #[ 16r30 16r22 16r21 16rFA 16r03 16rE0 16r73 16r23 16r22 16rCA 16rF7 \
  240.         16r02 16r31 16rA8 16rF2 16rF5] \
  241.     #( 10 'Parallel Port write error!'  )) >
  242.  
  243. <primitive 112 pTempVar 16  " readThisMany: " \
  244.   #( #[ 16r59 16r21 16rFA 16r02 16rE0 16rF3 16rF5] \
  245.     #(  )) >
  246.  
  247. <primitive 112 pTempVar 17  " setPortParametersTo: " \
  248.   #( #[ 16r58 16r21 16rFA 16r02 16rE0 16rF3 16rF5] \
  249.     #(  )) >
  250.  
  251. <primitive 112 pTempVar 18  " startPort " \
  252.   #( #[ 16r57 16rFA 16r01 16rE0 16rF3 16rF5] \
  253.     #(  )) >
  254.  
  255. <primitive 112 pTempVar 19  " stopPort " \
  256.   #( #[ 16r56 16rFA 16r01 16rE0 16rF3 16rF5] \
  257.     #(  )) >
  258.  
  259. <primitive 112 pTempVar 20  " flushPort " \
  260.   #( #[ 16r55 16rFA 16r01 16rE0 16rF3 16rF5] \
  261.     #(  )) >
  262.  
  263. <primitive 112 pTempVar 21  " resetPort " \
  264.   #( #[ 16r54 16rFA 16r01 16rE0 16rF3 16rF5] \
  265.     #(  )) >
  266.  
  267. <primitive 112 pTempVar 22  " status " \
  268.   #( #[ 16r53 16rFA 16r01 16rE0 16rF3 16rF5] \
  269.     #(  )) >
  270.  
  271. <primitive 112 pTempVar 23  " isSingleton " \
  272.   #( #[ 16r5B 16rF3 16rF5] \
  273.     #(  )) >
  274.  
  275. <primitive 98 #ParallelDevice \
  276.   <primitive 97 #ParallelDevice #Device #AmigaTalk:System/ParallelDevice.st \
  277.    #(  #uniqueInstance #flagDictionary ) \
  278.    #( #new: #current: #current #privateSetup #getParFlag:  \
  279.        #privateInitializeDictionary #new #privateNew #close #open: #readControlBitsMaskedBy:  \
  280.        #sendPortControlBits: #setPortDirectionAtomic: #setTerminatorsTo: #writeToPort:thisLong:  \
  281.        #readThisMany: #setPortParametersTo: #startPort #stopPort #flushPort #resetPort  \
  282.        #status #isSingleton  ) \
  283.   pTempVar 4 6 > #isSingleton >
  284.  
  285. pTempVar <- <primitive 110 15 >
  286. <primitive 112 pTempVar 1  " clipTypeIs " \
  287.   #( #[ 16r53 16r10 16rFA 16r02 16rDD 16r71 16r21 16r5D 16rB6 16rF7 16r02 \
  288.         16r30 16rF3 16rF2 16r21 16r5B 16rB6 16rF7 16r02 16r31 16rF3 \
  289.         16rF2 16r32 16rF3 16rF5] \
  290.     #( #CLIP_ERROR #FTXT #ILBM  )) >
  291.  
  292. <primitive 112 pTempVar 2  " postAsciiStringToClip: " \
  293.   #( #[ 16r51 16r21 16r10 16rFA 16r03 16rDD 16rF2 16rF5] \
  294.     #(  )) >
  295.  
  296. <primitive 112 pTempVar 3  " writeILBMClipToFile: " \
  297.   #( #[ 16r30 16r10 16r21 16rFA 16r03 16rDD 16r72 16r22 16r50 16rCA 16rF7 \
  298.         16r0C 16r31 16r21 16rA8 16r0B 16r12 16rF2 16r59 16r22 16rFA \
  299.         16r02 16rDD 16rA8 16rF2 16rF5] \
  300.     #( 14 'Clip did NOT make it to file '  )) >
  301.  
  302. <primitive 112 pTempVar 4  " postILBMFileToClip: " \
  303.   #( #[ 16r58 16r10 16r21 16rFA 16r03 16rDD 16r72 16r22 16r50 16rCA 16rF7 \
  304.         16r0C 16r21 16r30 16rA8 16r0B 16r12 16rF2 16r59 16r22 16rFA \
  305.         16r02 16rDD 16rA8 16rF2 16rF5] \
  306.     #( ' did NOT make it to the clipboard!'  )) >
  307.  
  308. <primitive 112 pTempVar 5  " postFTXTFileToClip: " \
  309.   #( #[ 16r57 16r10 16r21 16rFA 16r03 16rDD 16r72 16r22 16r50 16rCA 16rF7 \
  310.         16r0C 16r21 16r30 16rA8 16r0B 16r12 16rF2 16r59 16r22 16rFA \
  311.         16r02 16rDD 16rA8 16rF2 16rF5] \
  312.     #( ' did NOT make it to the clipboard!'  )) >
  313.  
  314. <primitive 112 pTempVar 6  " update " \
  315.   #( #[ 16r30 16r10 16rFA 16r02 16rDD 16r5B 16rCA 16rF7 16r02 16r31 16rA8 \
  316.         16rF2 16rF5] \
  317.     #( 12 'Clipboard update method failed!'  )) >
  318.  
  319. <primitive 112 pTempVar 7  " postAsciiFileToClip: " \
  320.   #( #[ 16r50 16r10 16r21 16rFA 16r03 16rDD 16r72 16r22 16r50 16rCA 16rF7 \
  321.         16r0C 16r21 16r30 16rA8 16r0B 16r12 16rF2 16r59 16r22 16rFA \
  322.         16r02 16rDD 16rA8 16rF2 16rF5] \
  323.     #( ' did NOT make it to the clipboard!'  )) >
  324.  
  325. <primitive 112 pTempVar 8  " postFTXTToClip: " \
  326.   #( #[ 16r30 16r10 16r21 16rFA 16r03 16rDD 16r72 16r22 16r50 16rCA 16rF7 \
  327.         16r09 16r31 16rA8 16rF2 16r59 16r22 16rFA 16r02 16rDD 16rA8 \
  328.         16rF2 16rF5] \
  329.     #( 13 'string did NOT make it to the clipboard!'  )) >
  330.  
  331. <primitive 112 pTempVar 9  " writeFTXTClipToASCIIFile: " \
  332.   #( #[ 16r54 16r21 16r10 16rFA 16r03 16rDD 16r72 16r22 16r50 16rCA 16rF7 \
  333.         16r0F 16r30 16r21 16rA8 16r0B 16r12 16rF2 16r59 16r22 16rFA \
  334.         16r02 16rDD 16rA8 16rF2 16r5D 16rF3 16rF2 16rF5] \
  335.     #( 'Clip did NOT make it to file '  )) >
  336.  
  337. <primitive 112 pTempVar 10  " writeFTXTClipToFTXTFile: " \
  338.   #( #[ 16r52 16r10 16r21 16rFA 16r03 16rDD 16r72 16r22 16r50 16rCA 16rF7 \
  339.         16r0C 16r30 16r21 16rA8 16r0B 16r12 16rF2 16r59 16r22 16rFA \
  340.         16r02 16rDD 16rA8 16rF2 16rF5] \
  341.     #( 'Clip did NOT make it to file '  )) >
  342.  
  343. <primitive 112 pTempVar 11  " setClipUnit: " \
  344.   #( #[ 16r21 16rF1 16r60 16rF3 16rF5] \
  345.     #(  )) >
  346.  
  347. <primitive 112 pTempVar 12  " closeHookedClipboard " \
  348.   #( #[ 16r56 16r10 16rFA 16r02 16rDD 16rF2 16rF5] \
  349.     #(  )) >
  350.  
  351. <primitive 112 pTempVar 13  " openHookedClipboard:withHook: " \
  352.   #( #[ 16r55 16r21 16r22 16rFA 16r03 16rDD 16r73 16r23 16r5D 16rB6 16rF7 \
  353.         16r0B 16r30 16r21 16r0B 16r12 16r31 16rA8 16r0B 16r12 16rF2 \
  354.         16r5D 16rF3 16rF2 16r20 16r21 16r81 16r02 16rF3 16rF5] \
  355.     #( 'Clip #' ' did NOT open!' #setClipUnit:  )) >
  356.  
  357. <primitive 112 pTempVar 14  " new " \
  358.   #( #[ 16r20 16r50 16rB0 16rF3 16rF5] \
  359.     #(  )) >
  360.  
  361. <primitive 112 pTempVar 15  " new: " \
  362.   #( #[ 16r20 16r21 16r81 16r00 16rF2 16r20 16rF3 16rF5] \
  363.     #( #setClipUnit:  )) >
  364.  
  365. <primitive 98 #ClipBoard \
  366.   <primitive 97 #ClipBoard #Device #AmigaTalk:System/ClipBoard.st \
  367.    #(  #unitNumber ) \
  368.    #( #clipTypeIs #postAsciiStringToClip: #writeILBMClipToFile:  \
  369.        #postILBMFileToClip: #postFTXTFileToClip: #update #postAsciiFileToClip: #postFTXTToClip:  \
  370.        #writeFTXTClipToASCIIFile: #writeFTXTClipToFTXTFile: #setClipUnit: #closeHookedClipboard  \
  371.        #openHookedClipboard:withHook: #new #new:  ) \
  372.   pTempVar 4 4 > #ordinary >
  373.  
  374. pTempVar <- <primitive 110 2 >
  375. <primitive 112 pTempVar 1  " writeFTXTClip:toFTXTString:size: " \
  376.   #( #[ 16r30 16r21 16r23 16r22 16rFA 16r04 16rDD 16r74 16r24 16r50 16rCA \
  377.         16rF7 16r09 16r31 16rA8 16rF2 16r59 16r24 16rFA 16r02 16rDD \
  378.         16rA8 16rF2 16rF5] \
  379.     #( 11 'Clip did NOT make it to string!'  )) >
  380.  
  381. <primitive 112 pTempVar 2  " postToClipUnit:fromFTXTString: " \
  382.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rDD 16r73 16r23 16r50 16rCA 16rF7 \
  383.         16r09 16r31 16rA8 16rF2 16r59 16r23 16rFA 16r02 16rDD 16rA8 \
  384.         16rF2 16rF5] \
  385.     #( 10 'String did NOT make it to Clipboard!'  )) >
  386.  
  387. <primitive 98 #IFFClipBoard \
  388.   <primitive 97 #IFFClipBoard #Device #AmigaTalk:System/ClipBoard.st \
  389.    #(  ) \
  390.    #( #writeFTXTClip:toFTXTString:size: #postToClipUnit:fromFTXTString:  ) \
  391.   pTempVar 5 5 > #ordinary >
  392.  
  393. pTempVar <- <primitive 110 24 >
  394. <primitive 112 pTempVar 1  " close " \
  395.   #( #[ 16r50 16r10 16rFA 16r02 16rE5 16rF2 16r55 16r50 16r10 16rFA 16r03 \
  396.         16rFA 16rF2 16r5D 16rF3 16rF5] \
  397.     #(  )) >
  398.  
  399. <primitive 112 pTempVar 2  " open: " \
  400.   #( #[ 16r51 16r21 16r10 16rFA 16r03 16rE5 16rF2 16rF5] \
  401.     #(  )) >
  402.  
  403. <primitive 112 pTempVar 3  " new: " \
  404.   #( #[ 16r05 16r17 16r21 16rFA 16r02 16rE5 16r60 16r21 16r61 16r20 16rF3 \
  405.         16rF5] \
  406.     #(  )) >
  407.  
  408. <primitive 112 pTempVar 4  " displayBytes: " \
  409.   #( #[ 16r20 16r80 16r00 16r72 16r05 16r3A 16rA0 16r73 16r31 16r22 16r0A \
  410.         16r11 16r0B 16r12 16r32 16r0B 16r12 16r12 16r0A 16r11 16r0B \
  411.         16r12 16r73 16r05 16r16 16r21 16r23 16rFA 16r03 16rE5 16rF2 \
  412.         16rF5] \
  413.     #( #getTrackSize 'displayBytes - size = ' ' Track #: '  )) >
  414.  
  415. <primitive 112 pTempVar 5  " writeTrack:track: " \
  416.   #( #[ 16r22 16r62 16r53 16r21 16r22 16r10 16rFA 16r04 16rE5 16rF3 16rF5 \
  417.        ] \
  418.     #(  )) >
  419.  
  420. <primitive 112 pTempVar 6  " readTrack: " \
  421.   #( #[ 16r21 16r62 16r52 16r21 16r10 16rFA 16r03 16rE5 16rF3 16rF5] \
  422.     #(  )) >
  423.  
  424. <primitive 112 pTempVar 7  " isWriteProtected " \
  425.   #( #[ 16r57 16r10 16rFA 16r02 16rE5 16rF3 16rF5] \
  426.     #(  )) >
  427.  
  428. <primitive 112 pTempVar 8  " isDiskPresent " \
  429.   #( #[ 16r56 16r10 16rFA 16r02 16rE5 16rF3 16rF5] \
  430.     #(  )) >
  431.  
  432. <primitive 112 pTempVar 9  " seekTrack: " \
  433.   #( #[ 16r21 16r62 16r30 16r21 16r10 16rFA 16r03 16rE5 16rF3 16rF5] \
  434.     #( 15  )) >
  435.  
  436. <primitive 112 pTempVar 10  " getTotalSize " \
  437.   #( #[ 16r20 16r80 16r00 16r72 16r20 16r80 16r01 16r71 16r22 16r21 16rC2 \
  438.         16rF3 16rF5] \
  439.     #( #getTotalSectors #getSectorSize  )) >
  440.  
  441. <primitive 112 pTempVar 11  " getTotalSectors " \
  442.   #( #[ 16r30 16r10 16rFA 16r02 16rE5 16rF3 16rF5] \
  443.     #( 14  )) >
  444.  
  445. <primitive 112 pTempVar 12  " getNumberOfTracks " \
  446.   #( #[ 16r30 16r10 16rFA 16r02 16rE5 16rF3 16rF5] \
  447.     #( 13  )) >
  448.  
  449. <primitive 112 pTempVar 13  " displayDriveType " \
  450.   #( #[ 16r20 16r80 16r00 16r71 16r21 16r51 16rB6 16rF7 16r04 16r31 16rA8 \
  451.         16rF8 16r0D 16rF2 16r21 16r52 16rB6 16rF7 16r04 16r32 16rA8 \
  452.         16rF8 16r03 16rF2 16r33 16rA8 16rF2 16rF5] \
  453.     #( #getDriveType '3-1/2" Floppy Disk.' '5-1/4" Floppy Disk.' '3-1/2" Floppy spinning at 150 RPM'  )) >
  454.  
  455. <primitive 112 pTempVar 14  " getDriveType " \
  456.   #( #[ 16r30 16r10 16rFA 16r02 16rE5 16rF3 16rF5] \
  457.     #( 11  )) >
  458.  
  459. <primitive 112 pTempVar 15  " getDeviceType " \
  460.   #( #[ 16r59 16r10 16rFA 16r02 16rE5 16rF3 16rF5] \
  461.     #(  )) >
  462.  
  463. <primitive 112 pTempVar 16  " getTrackSize " \
  464.   #( #[ 16r30 16r10 16rFA 16r02 16rE5 16rF3 16rF5] \
  465.     #( 10  )) >
  466.  
  467. <primitive 112 pTempVar 17  " getSectorSize " \
  468.   #( #[ 16r30 16r10 16rFA 16r02 16rE5 16rF3 16rF5] \
  469.     #( 12  )) >
  470.  
  471. <primitive 112 pTempVar 18  " getErrorString " \
  472.   #( #[ 16r58 16r10 16rFA 16r02 16rE5 16rF3 16rF5] \
  473.     #(  )) >
  474.  
  475. <primitive 112 pTempVar 19  " setSyncType: " \
  476.   #( #[ 16r55 16r21 16r10 16rFA 16r03 16rE5 16rF2 16rF5] \
  477.     #(  )) >
  478.  
  479. <primitive 112 pTempVar 20  " clearReadBuffer " \
  480.   #( #[ 16r54 16r10 16rFA 16r02 16rE5 16rF2 16rF5] \
  481.     #(  )) >
  482.  
  483. <primitive 112 pTempVar 21  " writeRawData:track: " \
  484.   #( #[ 16r22 16r62 16r05 16r15 16r21 16r22 16r10 16rFA 16r04 16rE5 16rF3 \
  485.         16rF5] \
  486.     #(  )) >
  487.  
  488. <primitive 112 pTempVar 22  " readRawData: " \
  489.   #( #[ 16r21 16r62 16r05 16r14 16r21 16r10 16rFA 16r03 16rE5 16rF3 16rF5 \
  490.        ] \
  491.     #(  )) >
  492.  
  493. <primitive 112 pTempVar 23  " formatTrack:data: " \
  494.   #( #[ 16r21 16r62 16r05 16r13 16r22 16r21 16r10 16rFA 16r04 16rE5 16rF3 \
  495.         16rF5] \
  496.     #(  )) >
  497.  
  498. <primitive 112 pTempVar 24  " ejectDisk " \
  499.   #( #[ 16r05 16r10 16r10 16rFA 16r02 16rE5 16rF3 16rF5] \
  500.     #(  )) >
  501.  
  502. <primitive 98 #TrackDisk \
  503.   <primitive 97 #TrackDisk #Device #AmigaTalk:System/TrackDisk.st \
  504.    #(  #private #diskName #trkNumber ) \
  505.    #( #close #open: #new: #displayBytes: #writeTrack:track: #readTrack:  \
  506.        #isWriteProtected #isDiskPresent #seekTrack: #getTotalSize #getTotalSectors  \
  507.        #getNumberOfTracks #displayDriveType #getDriveType #getDeviceType #getTrackSize  \
  508.        #getSectorSize #getErrorString #setSyncType: #clearReadBuffer #writeRawData:track:  \
  509.        #readRawData: #formatTrack:data: #ejectDisk  ) \
  510.   pTempVar 4 5 > #ordinary >
  511.  
  512. pTempVar <- <primitive 110 13 >
  513. <primitive 112 pTempVar 1  " close " \
  514.   #( #[ 16r50 16r10 16rFA 16r02 16rE4 16rF2 16r55 16r50 16r10 16rFA 16r03 \
  515.         16rFA 16rF2 16r5D 16rF3 16rF5] \
  516.     #(  )) >
  517.  
  518. <primitive 112 pTempVar 2  " openTimer:type:seconds:micros: " \
  519.   #( #[ 16r51 16r22 16r23 16r24 16r21 16rFA 16r05 16rE4 16r60 16r22 16r61 \
  520.         16r20 16rF3 16rF5] \
  521.     #(  )) >
  522.  
  523. <primitive 112 pTempVar 3  " getEClockLow " \
  524.   #( #[ 16r30 16r10 16rFA 16r02 16rE4 16rF3 16rF5] \
  525.     #( 11  )) >
  526.  
  527. <primitive 112 pTempVar 4  " getEClockHigh " \
  528.   #( #[ 16r30 16r10 16rFA 16r02 16rE4 16rF3 16rF5] \
  529.     #( 10  )) >
  530.  
  531. <primitive 112 pTempVar 5  " compare:micros:toSeconds:micros: " \
  532.   #( #[ 16r59 16r21 16r22 16r23 16r24 16rFA 16r05 16rE4 16rF3 16rF5] \
  533.     #(  )) >
  534.  
  535. <primitive 112 pTempVar 6  " setSeconds:micros: " \
  536.   #( #[ 16r58 16r10 16r21 16r22 16rFA 16r04 16rE4 16rF3 16rF5] \
  537.     #(  )) >
  538.  
  539. <primitive 112 pTempVar 7  " getMicros " \
  540.   #( #[ 16r57 16r10 16rFA 16r02 16rE4 16rF3 16rF5] \
  541.     #(  )) >
  542.  
  543. <primitive 112 pTempVar 8  " getSeconds " \
  544.   #( #[ 16r56 16r10 16rFA 16r02 16rE4 16rF3 16rF5] \
  545.     #(  )) >
  546.  
  547. <primitive 112 pTempVar 9  " getTimerType " \
  548.   #( #[ 16r11 16rF3 16rF5] \
  549.     #(  )) >
  550.  
  551. <primitive 112 pTempVar 10  " test " \
  552.   #( #[ 16r55 16r10 16rFA 16r02 16rE4 16rF3 16rF5] \
  553.     #(  )) >
  554.  
  555. <primitive 112 pTempVar 11  " delaySeconds:micros: " \
  556.   #( #[ 16r54 16r10 16r21 16r22 16rFA 16r04 16rE4 16rF2 16rF5] \
  557.     #(  )) >
  558.  
  559. <primitive 112 pTempVar 12  " startWithSecs:withMicros: " \
  560.   #( #[ 16r53 16r10 16r21 16r22 16rFA 16r04 16rE4 16rF2 16rF5] \
  561.     #(  )) >
  562.  
  563. <primitive 112 pTempVar 13  " stop " \
  564.   #( #[ 16r52 16r10 16rFA 16r02 16rE4 16rF2 16rF5] \
  565.     #(  )) >
  566.  
  567. <primitive 98 #TimerDevice \
  568.   <primitive 97 #TimerDevice #Device #AmigaTalk:System/Timer.st \
  569.    #(  #private #timerType ) \
  570.    #( #close #openTimer:type:seconds:micros: #getEClockLow #getEClockHigh  \
  571.        #compare:micros:toSeconds:micros: #setSeconds:micros: #getMicros #getSeconds #getTimerType #test  \
  572.        #delaySeconds:micros: #startWithSecs:withMicros: #stop  ) \
  573.   pTempVar 5 6 > #ordinary >
  574.  
  575. pTempVar <- <primitive 110 22 >
  576. <primitive 112 pTempVar 1  " new: " \
  577.   #( #[ 16r20 16r21 16r30 16r82 16r01 16rF2 16r20 16rF3 16rF5] \
  578.     #( 8192 #open:size:  )) >
  579.  
  580. <primitive 112 pTempVar 2  " close " \
  581.   #( #[ 16r50 16r10 16rFA 16r02 16rE3 16rF2 16r55 16r50 16r10 16rFA 16r03 \
  582.         16rFA 16rF2 16r5D 16rF3 16rF5] \
  583.     #(  )) >
  584.  
  585. <primitive 112 pTempVar 3  " open:size: " \
  586.   #( #[ 16r51 16r22 16rFA 16r02 16rE3 16r60 16r22 16r61 16r20 16rF3 16rF5 \
  587.        ] \
  588.     #(  )) >
  589.  
  590. <primitive 112 pTempVar 4  " setTerminators: " \
  591.   #( #[ 16r30 16r21 16r10 16rFA 16r03 16rE3 16rF3 16rF5] \
  592.     #( 14  )) >
  593.  
  594. <primitive 112 pTempVar 5  " setFlags: " \
  595.   #( #[ 16r30 16r55 16r21 16r10 16rFA 16r04 16rE3 16rF3 16rF5] \
  596.     #( 13  )) >
  597.  
  598. <primitive 112 pTempVar 6  " setRBufSize: " \
  599.   #( #[ 16r30 16r54 16r21 16r10 16rFA 16r04 16rE3 16rF3 16rF5] \
  600.     #( 13  )) >
  601.  
  602. <primitive 112 pTempVar 7  " setBreakLen: " \
  603.   #( #[ 16r30 16r53 16r21 16r10 16rFA 16r04 16rE3 16rF3 16rF5] \
  604.     #( 13  )) >
  605.  
  606. <primitive 112 pTempVar 8  " setStops: " \
  607.   #( #[ 16r30 16r52 16r21 16r10 16rFA 16r04 16rE3 16rF3 16rF5] \
  608.     #( 13  )) >
  609.  
  610. <primitive 112 pTempVar 9  " setDataSize: " \
  611.   #( #[ 16r30 16r51 16r21 16r10 16rFA 16r04 16rE3 16rF3 16rF5] \
  612.     #( 13  )) >
  613.  
  614. <primitive 112 pTempVar 10  " setParity:status: " \
  615.   #( #[ 16r30 16r21 16r22 16r10 16rFA 16r04 16rE3 16rF2 16rF5] \
  616.     #( 15  )) >
  617.  
  618. <primitive 112 pTempVar 11  " setBaud: " \
  619.   #( #[ 16r30 16r50 16r21 16r10 16rFA 16r04 16rE3 16rF3 16rF5] \
  620.     #( 13  )) >
  621.  
  622. <primitive 112 pTempVar 12  " setSyncType: " \
  623.   #( #[ 16r30 16r21 16rFA 16r02 16rE3 16rF3 16rF5] \
  624.     #( 12  )) >
  625.  
  626. <primitive 112 pTempVar 13  " clearReadBuffer " \
  627.   #( #[ 16r30 16r10 16rFA 16r02 16rE3 16rF2 16rF5] \
  628.     #( 11  )) >
  629.  
  630. <primitive 112 pTempVar 14  " flush " \
  631.   #( #[ 16r30 16r10 16rFA 16r02 16rE3 16rF2 16rF5] \
  632.     #( 10  )) >
  633.  
  634. <primitive 112 pTempVar 15  " getStatus " \
  635.   #( #[ 16r59 16r10 16rFA 16r02 16rE3 16rF3 16rF5] \
  636.     #(  )) >
  637.  
  638. <primitive 112 pTempVar 16  " sendBreakOfDuration: " \
  639.   #( #[ 16r58 16r21 16r10 16rFA 16r03 16rE3 16rF2 16rF5] \
  640.     #(  )) >
  641.  
  642. <primitive 112 pTempVar 17  " restart " \
  643.   #( #[ 16r57 16r10 16rFA 16r02 16rE3 16rF2 16rF5] \
  644.     #(  )) >
  645.  
  646. <primitive 112 pTempVar 18  " pause " \
  647.   #( #[ 16r56 16r10 16rFA 16r02 16rE3 16rF2 16rF5] \
  648.     #(  )) >
  649.  
  650. <primitive 112 pTempVar 19  " reset " \
  651.   #( #[ 16r55 16r10 16rFA 16r02 16rE3 16rF2 16rF5] \
  652.     #(  )) >
  653.  
  654. <primitive 112 pTempVar 20  " writeThis: " \
  655.   #( #[ 16r54 16r21 16r10 16rFA 16r03 16rE3 16rF2 16rF5] \
  656.     #(  )) >
  657.  
  658. <primitive 112 pTempVar 21  " readSerial: " \
  659.   #( #[ 16r53 16r10 16r21 16rFA 16r03 16rE3 16rF3 16rF5] \
  660.     #(  )) >
  661.  
  662. <primitive 112 pTempVar 22  " initializeWithTerm: " \
  663.   #( #[ 16r52 16r21 16r10 16rFA 16r03 16rE3 16rF2 16rF5] \
  664.     #(  )) >
  665.  
  666. <primitive 98 #SerialDevice \
  667.   <primitive 97 #SerialDevice #Device #AmigaTalk:System/SerialDevice.st \
  668.    #(  #private #bufferSize ) \
  669.    #( #new: #close #open:size: #setTerminators: #setFlags: #setRBufSize:  \
  670.        #setBreakLen: #setStops: #setDataSize: #setParity:status: #setBaud: #setSyncType:  \
  671.        #clearReadBuffer #flush #getStatus #sendBreakOfDuration: #restart #pause #reset  \
  672.        #writeThis: #readSerial: #initializeWithTerm:  ) \
  673.   pTempVar 3 5 > #ordinary >
  674.  
  675. pTempVar <- <primitive 110 12 >
  676. <primitive 112 pTempVar 1  " write:this: " \
  677.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  678.     #( 'write: devName this: string' #subClassResponsibility:  )) >
  679.  
  680. <primitive 112 pTempVar 2  " getDeviceAddressList " \
  681.   #( #[ 16r52 16r54 16rFA 16r02 16rFA 16rF3 16rF5] \
  682.     #(  )) >
  683.  
  684. <primitive 112 pTempVar 3  " update " \
  685.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  686.     #( 'update' #notImplemented:  )) >
  687.  
  688. <primitive 112 pTempVar 4  " start " \
  689.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  690.     #( 'start' #notImplemented:  )) >
  691.  
  692. <primitive 112 pTempVar 5  " stop " \
  693.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  694.     #( 'stop' #notImplemented:  )) >
  695.  
  696. <primitive 112 pTempVar 6  " query " \
  697.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  698.     #( 'query' #subClassResponsibility:  )) >
  699.  
  700. <primitive 112 pTempVar 7  " reset: " \
  701.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  702.     #( 'reset: devName' #subClassResponsibility:  )) >
  703.  
  704. <primitive 112 pTempVar 8  " read: " \
  705.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  706.     #( 'read: devName' #notImplemented:  )) >
  707.  
  708. <primitive 112 pTempVar 9  " invalid " \
  709.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  710.     #( 'invalid' #notImplemented:  )) >
  711.  
  712. <primitive 112 pTempVar 10  " flush: " \
  713.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  714.     #( 'flush: devName' #subClassResponsibility:  )) >
  715.  
  716. <primitive 112 pTempVar 11  " clear " \
  717.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  718.     #( 'clear' #notImplemented:  )) >
  719.  
  720. <primitive 112 pTempVar 12  " initialize: " \
  721.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  722.     #( 'initialize: initString' #subClassResponsibility:  )) >
  723.  
  724. <primitive 98 #Device \
  725.   <primitive 97 #Device #Object #AmigaTalk:System/Device.st \
  726.    #(  ) \
  727.    #( #write:this: #getDeviceAddressList #update #start #stop #query #reset:  \
  728.        #read: #invalid #flush: #clear #initialize:  ) \
  729.   pTempVar 3 3 > #ordinary >
  730.  
  731. pTempVar <- <primitive 110 17 >
  732. <primitive 112 pTempVar 1  " new: " \
  733.   #( #[ 16r20 16r21 16r50 16r82 16r00 16rF2 16r20 16rF3 16rF5] \
  734.     #( #openLibrary:version:  )) >
  735.  
  736. <primitive 112 pTempVar 2  " getOpenCount " \
  737.   #( #[ 16r52 16r57 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  738.     #(  )) >
  739.  
  740. <primitive 112 pTempVar 3  " getCheckSum " \
  741.   #( #[ 16r52 16r56 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  742.     #(  )) >
  743.  
  744. <primitive 112 pTempVar 4  " getRevision " \
  745.   #( #[ 16r52 16r55 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  746.     #(  )) >
  747.  
  748. <primitive 112 pTempVar 5  " getFlags " \
  749.   #( #[ 16r52 16r53 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  750.     #(  )) >
  751.  
  752. <primitive 112 pTempVar 6  " getPosSize " \
  753.   #( #[ 16r52 16r52 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  754.     #(  )) >
  755.  
  756. <primitive 112 pTempVar 7  " getNegSize " \
  757.   #( #[ 16r52 16r51 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  758.     #(  )) >
  759.  
  760. <primitive 112 pTempVar 8  " getVersion " \
  761.   #( #[ 16r52 16r54 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  762.     #(  )) >
  763.  
  764. <primitive 112 pTempVar 9  " getIDString " \
  765.   #( #[ 16r11 16rF3 16rF5] \
  766.     #(  )) >
  767.  
  768. <primitive 112 pTempVar 10  " close " \
  769.   #( #[ 16r50 16r10 16rFA 16r02 16rBE 16rF2 16r55 16r50 16r10 16rFA 16r03 \
  770.         16rFA 16rF2 16r5D 16rF3 16rF5] \
  771.     #(  )) >
  772.  
  773. <primitive 112 pTempVar 11  " openLibrary:version: " \
  774.   #( #[ 16r51 16r21 16r22 16rFA 16r03 16rBE 16r60 16r21 16r61 16r20 16rF3 \
  775.         16rF5] \
  776.     #(  )) >
  777.  
  778. <primitive 112 pTempVar 12  " getLibraryObject " \
  779.   #( #[ 16r10 16rF3 16rF5] \
  780.     #(  )) >
  781.  
  782. <primitive 112 pTempVar 13  " sumLibrary: " \
  783.   #( #[ 16r54 16r05 16r18 16r21 16rFA 16r03 16rD1 16rF2 16rF5] \
  784.     #(  )) >
  785.  
  786. <primitive 112 pTempVar 14  " setFunctionIn:at:to: " \
  787.   #( #[ 16r54 16r05 16r17 16r21 16r22 16r23 16rFA 16r05 16rD1 16rF3 16rF5 \
  788.        ] \
  789.     #(  )) >
  790.  
  791. <primitive 112 pTempVar 15  " removeLibrary: " \
  792.   #( #[ 16r54 16r05 16r16 16r21 16rFA 16r03 16rD1 16rF2 16rF5] \
  793.     #(  )) >
  794.  
  795. <primitive 112 pTempVar 16  " addLibrary: " \
  796.   #( #[ 16r54 16r05 16r15 16r21 16rFA 16r03 16rD1 16rF2 16rF5] \
  797.     #(  )) >
  798.  
  799. <primitive 112 pTempVar 17  " makeLibrary:struct:init:size:segments: " \
  800.   #( #[ 16r54 16r05 16r1B 16r21 16r22 16r23 16r24 16r25 16rFA 16r07 16rD1 \
  801.         16rF3 16rF5] \
  802.     #(  )) >
  803.  
  804. <primitive 98 #Library \
  805.   <primitive 97 #Library #Object #AmigaTalk:System/Library.st \
  806.    #(  #private #libName ) \
  807.    #( #new: #getOpenCount #getCheckSum #getRevision #getFlags #getPosSize  \
  808.        #getNegSize #getVersion #getIDString #close #openLibrary:version:  \
  809.        #getLibraryObject #sumLibrary: #setFunctionIn:at:to: #removeLibrary: #addLibrary:  \
  810.        #makeLibrary:struct:init:size:segments:  ) \
  811.   pTempVar 6 8 > #ordinary >
  812.  
  813. pTempVar <- <primitive 110 3 >
  814. <primitive 112 pTempVar 1  " new: " \
  815.   #( #[ 16r20 16r30 16r91 16r01 16rF3 16rF5] \
  816.     #( 'new:' #doesNotUnderstand:  )) >
  817.  
  818. <primitive 112 pTempVar 2  " getControllerType: " \
  819.   #( #[ 16r57 16r21 16rFA 16r02 16rDF 16rF3 16rF5] \
  820.     #(  )) >
  821.  
  822. <primitive 112 pTempVar 3  " openGamePort: " \
  823.   #( #[ 16r20 16r30 16r91 16r01 16rF3 16rF5] \
  824.     #( 'openGamePort:' #subclassResponsibility:  )) >
  825.  
  826. <primitive 98 #GamePort \
  827.   <primitive 97 #GamePort #Device #AmigaTalk:System/GamePort.st \
  828.    #(  ) \
  829.    #( #new: #getControllerType: #openGamePort:  ) \
  830.   pTempVar 2 3 > #ordinary >
  831.  
  832. pTempVar <- <primitive 110 23 >
  833. <primitive 112 pTempVar 1  " new: " \
  834.   #( #[ 16r20 16r21 16r81 16r00 16rF3 16rF5] \
  835.     #( #openMousePort:  )) >
  836.  
  837. <primitive 112 pTempVar 2  " waitForYPos: " \
  838.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  839.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  840.     #( #getYPos  )) >
  841.  
  842. <primitive 112 pTempVar 3  " waitForXPos: " \
  843.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  844.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  845.     #( #getXPos  )) >
  846.  
  847. <primitive 112 pTempVar 4  " waitForQualifier: " \
  848.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  849.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  850.     #( #getQualifiers  )) >
  851.  
  852. <primitive 112 pTempVar 5  " waitForButton: " \
  853.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  854.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  855.     #( #getButtonCode  )) >
  856.  
  857. <primitive 112 pTempVar 6  " setYDeltaTransition: " \
  858.   #( #[ 16r55 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  859.     #(  )) >
  860.  
  861. <primitive 112 pTempVar 7  " setXDeltaTransition: " \
  862.   #( #[ 16r54 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  863.     #(  )) >
  864.  
  865. <primitive 112 pTempVar 8  " setTimeTransition: " \
  866.   #( #[ 16r21 16r50 16rC7 16rF7 16r05 16r30 16rA8 16rF2 16r5D 16rF3 16rF2 \
  867.         16r53 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  868.     #( 'timeOutValue out of range (S/B >= 0).'  )) >
  869.  
  870. <primitive 112 pTempVar 9  " setKeyTransition: " \
  871.   #( #[ 16r21 16r51 16rCB 16r21 16r81 16r00 16r53 16rC8 16rF7 16r08 16r52 \
  872.         16r10 16r21 16rFA 16r03 16rDF 16rF8 16r03 16rF2 16r31 16rA8 \
  873.         16rF2 16rF5] \
  874.     #( #& 'transType parameter out of range (1 to 3 only)!'  )) >
  875.  
  876. <primitive 112 pTempVar 10  " getTriggerYDelta " \
  877.   #( #[ 16r05 16r13 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  878.     #(  )) >
  879.  
  880. <primitive 112 pTempVar 11  " getTriggerXDelta " \
  881.   #( #[ 16r05 16r12 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  882.     #(  )) >
  883.  
  884. <primitive 112 pTempVar 12  " getTriggerTime " \
  885.   #( #[ 16r05 16r11 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  886.     #(  )) >
  887.  
  888. <primitive 112 pTempVar 13  " getTriggerKeys " \
  889.   #( #[ 16r05 16r10 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  890.     #(  )) >
  891.  
  892. <primitive 112 pTempVar 14  " getTimeStamp " \
  893.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  894.     #( 15  )) >
  895.  
  896. <primitive 112 pTempVar 15  " getIEAddress " \
  897.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  898.     #( 14  )) >
  899.  
  900. <primitive 112 pTempVar 16  " getYPos " \
  901.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  902.     #( 13  )) >
  903.  
  904. <primitive 112 pTempVar 17  " getXPos " \
  905.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  906.     #( 12  )) >
  907.  
  908. <primitive 112 pTempVar 18  " getQualifiers " \
  909.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  910.     #( 11  )) >
  911.  
  912. <primitive 112 pTempVar 19  " getButtonCode " \
  913.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  914.     #( 10  )) >
  915.  
  916. <primitive 112 pTempVar 20  " clearMousePortBuffer " \
  917.   #( #[ 16r56 16r10 16rFA 16r02 16rDF 16rF2 16rF5] \
  918.     #(  )) >
  919.  
  920. <primitive 112 pTempVar 21  " closeMousePort " \
  921.   #( #[ 16r50 16r10 16rFA 16r02 16rDF 16rF2 16rF5] \
  922.     #(  )) >
  923.  
  924. <primitive 112 pTempVar 22  " openMousePort: " \
  925.   #( #[ 16r51 16r21 16rFA 16r02 16rDF 16r60 16r57 16r10 16rFA 16r02 16rDF \
  926.         16r72 16r22 16r50 16rB6 16rF7 16r0B 16r58 16r10 16r51 16rFA \
  927.         16r03 16rDF 16rF2 16r20 16rF3 16rF8 16r0D 16rF2 16r20 16r30 \
  928.         16r21 16r0B 16r12 16r31 16r0B 16r12 16rBD 16rF2 16r5D 16rF3 \
  929.         16rF2 16rF5] \
  930.     #( 'Mouse port ' ' already in use!'  )) >
  931.  
  932. <primitive 112 pTempVar 23  " getControllerType " \
  933.   #( #[ 16r20 16r10 16r91 16r00 16rF3 16rF5] \
  934.     #( #getControllerType:  )) >
  935.  
  936. <primitive 98 #Mouse \
  937.   <primitive 97 #Mouse #GamePort #AmigaTalk:System/GamePort.st \
  938.    #(  #private ) \
  939.    #( #new: #waitForYPos: #waitForXPos: #waitForQualifier: #waitForButton:  \
  940.        #setYDeltaTransition: #setXDeltaTransition: #setTimeTransition: #setKeyTransition:  \
  941.        #getTriggerYDelta #getTriggerXDelta #getTriggerTime #getTriggerKeys #getTimeStamp  \
  942.        #getIEAddress #getYPos #getXPos #getQualifiers #getButtonCode #clearMousePortBuffer  \
  943.        #closeMousePort #openMousePort: #getControllerType  ) \
  944.   pTempVar 3 6 > #ordinary >
  945.  
  946. pTempVar <- <primitive 110 23 >
  947. <primitive 112 pTempVar 1  " new: " \
  948.   #( #[ 16r20 16r21 16r81 16r00 16rF3 16rF5] \
  949.     #( #openGamePort:  )) >
  950.  
  951. <primitive 112 pTempVar 2  " waitForYPos: " \
  952.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  953.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  954.     #( #getYPos  )) >
  955.  
  956. <primitive 112 pTempVar 3  " waitForXPos: " \
  957.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  958.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  959.     #( #getXPos  )) >
  960.  
  961. <primitive 112 pTempVar 4  " waitForQualifier: " \
  962.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  963.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  964.     #( #getQualifiers  )) >
  965.  
  966. <primitive 112 pTempVar 5  " waitForButton: " \
  967.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  968.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  969.     #( #getButtonCode  )) >
  970.  
  971. <primitive 112 pTempVar 6  " setYDeltaTransition: " \
  972.   #( #[ 16r55 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  973.     #(  )) >
  974.  
  975. <primitive 112 pTempVar 7  " setXDeltaTransition: " \
  976.   #( #[ 16r54 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  977.     #(  )) >
  978.  
  979. <primitive 112 pTempVar 8  " setTimeTransition: " \
  980.   #( #[ 16r21 16r50 16rC7 16rF7 16r05 16r30 16rA8 16rF2 16r5D 16rF3 16rF2 \
  981.         16r53 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  982.     #( 'timeOutValue out of range (S/B >= 0).'  )) >
  983.  
  984. <primitive 112 pTempVar 9  " setKeyTransition: " \
  985.   #( #[ 16r21 16r51 16rCB 16r21 16r81 16r00 16r53 16rC8 16rF7 16r08 16r52 \
  986.         16r10 16r21 16rFA 16r03 16rDF 16rF8 16r03 16rF2 16r31 16rA8 \
  987.         16rF2 16rF5] \
  988.     #( #& 'transType parameter out of range (1 to 3 only)!'  )) >
  989.  
  990. <primitive 112 pTempVar 10  " getTriggerYDelta " \
  991.   #( #[ 16r05 16r13 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  992.     #(  )) >
  993.  
  994. <primitive 112 pTempVar 11  " getTriggerXDelta " \
  995.   #( #[ 16r05 16r12 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  996.     #(  )) >
  997.  
  998. <primitive 112 pTempVar 12  " getTriggerTime " \
  999.   #( #[ 16r05 16r11 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1000.     #(  )) >
  1001.  
  1002. <primitive 112 pTempVar 13  " getTriggerKeys " \
  1003.   #( #[ 16r05 16r10 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1004.     #(  )) >
  1005.  
  1006. <primitive 112 pTempVar 14  " getTimeStamp " \
  1007.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1008.     #( 15  )) >
  1009.  
  1010. <primitive 112 pTempVar 15  " getIEAddress " \
  1011.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1012.     #( 14  )) >
  1013.  
  1014. <primitive 112 pTempVar 16  " getYPos " \
  1015.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1016.     #( 13  )) >
  1017.  
  1018. <primitive 112 pTempVar 17  " getXPos " \
  1019.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1020.     #( 12  )) >
  1021.  
  1022. <primitive 112 pTempVar 18  " getQualifiers " \
  1023.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1024.     #( 11  )) >
  1025.  
  1026. <primitive 112 pTempVar 19  " getButtonCode " \
  1027.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1028.     #( 10  )) >
  1029.  
  1030. <primitive 112 pTempVar 20  " clearGamePortBuffer " \
  1031.   #( #[ 16r56 16r10 16rFA 16r02 16rDF 16rF2 16rF5] \
  1032.     #(  )) >
  1033.  
  1034. <primitive 112 pTempVar 21  " closeGamePort " \
  1035.   #( #[ 16r50 16r10 16rFA 16r02 16rDF 16rF2 16rF5] \
  1036.     #(  )) >
  1037.  
  1038. <primitive 112 pTempVar 22  " openGamePort: " \
  1039.   #( #[ 16r51 16r21 16rFA 16r02 16rDF 16r60 16r57 16r10 16rFA 16r02 16rDF \
  1040.         16r72 16r22 16r50 16rB6 16rF7 16r0B 16r58 16r10 16r53 16rFA \
  1041.         16r03 16rDF 16rF2 16r20 16rF3 16rF8 16r0D 16rF2 16r20 16r30 \
  1042.         16r21 16r0B 16r12 16r31 16r0B 16r12 16rBD 16rF2 16r5D 16rF3 \
  1043.         16rF2 16rF5] \
  1044.     #( 'Game port ' ' already in use!'  )) >
  1045.  
  1046. <primitive 112 pTempVar 23  " getControllerType " \
  1047.   #( #[ 16r20 16r10 16r91 16r00 16rF3 16rF5] \
  1048.     #( #getControllerType:  )) >
  1049.  
  1050. <primitive 98 #AbsJoyStick \
  1051.   <primitive 97 #AbsJoyStick #GamePort #AmigaTalk:System/GamePort.st \
  1052.    #(  #private ) \
  1053.    #( #new: #waitForYPos: #waitForXPos: #waitForQualifier: #waitForButton:  \
  1054.        #setYDeltaTransition: #setXDeltaTransition: #setTimeTransition: #setKeyTransition:  \
  1055.        #getTriggerYDelta #getTriggerXDelta #getTriggerTime #getTriggerKeys #getTimeStamp  \
  1056.        #getIEAddress #getYPos #getXPos #getQualifiers #getButtonCode #clearGamePortBuffer  \
  1057.        #closeGamePort #openGamePort: #getControllerType  ) \
  1058.   pTempVar 3 6 > #ordinary >
  1059.  
  1060. pTempVar <- <primitive 110 23 >
  1061. <primitive 112 pTempVar 1  " new: " \
  1062.   #( #[ 16r20 16r21 16r81 16r00 16rF3 16rF5] \
  1063.     #( #openGamePort:  )) >
  1064.  
  1065. <primitive 112 pTempVar 2  " waitForYPos: " \
  1066.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  1067.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  1068.     #( #getYPos  )) >
  1069.  
  1070. <primitive 112 pTempVar 3  " waitForXPos: " \
  1071.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  1072.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  1073.     #( #getXPos  )) >
  1074.  
  1075. <primitive 112 pTempVar 4  " waitForQualifier: " \
  1076.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  1077.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  1078.     #( #getQualifiers  )) >
  1079.  
  1080. <primitive 112 pTempVar 5  " waitForButton: " \
  1081.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  1082.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  1083.     #( #getButtonCode  )) >
  1084.  
  1085. <primitive 112 pTempVar 6  " setYDeltaTransition: " \
  1086.   #( #[ 16r55 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  1087.     #(  )) >
  1088.  
  1089. <primitive 112 pTempVar 7  " setXDeltaTransition: " \
  1090.   #( #[ 16r54 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  1091.     #(  )) >
  1092.  
  1093. <primitive 112 pTempVar 8  " setTimeTransition: " \
  1094.   #( #[ 16r21 16r50 16rC7 16rF7 16r05 16r30 16rA8 16rF2 16r5D 16rF3 16rF2 \
  1095.         16r53 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  1096.     #( 'timeOutValue out of range (S/B >= 0).'  )) >
  1097.  
  1098. <primitive 112 pTempVar 9  " setKeyTransition: " \
  1099.   #( #[ 16r21 16r51 16rCB 16r21 16r81 16r00 16r53 16rC8 16rF7 16r08 16r52 \
  1100.         16r10 16r21 16rFA 16r03 16rDF 16rF8 16r03 16rF2 16r31 16rA8 \
  1101.         16rF2 16rF5] \
  1102.     #( #& 'transType parameter out of range (1 to 3 only)!'  )) >
  1103.  
  1104. <primitive 112 pTempVar 10  " getTriggerYDelta " \
  1105.   #( #[ 16r05 16r13 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1106.     #(  )) >
  1107.  
  1108. <primitive 112 pTempVar 11  " getTriggerXDelta " \
  1109.   #( #[ 16r05 16r12 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1110.     #(  )) >
  1111.  
  1112. <primitive 112 pTempVar 12  " getTriggerTime " \
  1113.   #( #[ 16r05 16r11 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1114.     #(  )) >
  1115.  
  1116. <primitive 112 pTempVar 13  " getTriggerKeys " \
  1117.   #( #[ 16r05 16r10 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1118.     #(  )) >
  1119.  
  1120. <primitive 112 pTempVar 14  " getTimeStamp " \
  1121.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1122.     #( 15  )) >
  1123.  
  1124. <primitive 112 pTempVar 15  " getIEAddress " \
  1125.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1126.     #( 14  )) >
  1127.  
  1128. <primitive 112 pTempVar 16  " getYPos " \
  1129.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1130.     #( 13  )) >
  1131.  
  1132. <primitive 112 pTempVar 17  " getXPos " \
  1133.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1134.     #( 12  )) >
  1135.  
  1136. <primitive 112 pTempVar 18  " getQualifiers " \
  1137.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1138.     #( 11  )) >
  1139.  
  1140. <primitive 112 pTempVar 19  " getButtonCode " \
  1141.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1142.     #( 10  )) >
  1143.  
  1144. <primitive 112 pTempVar 20  " clearGamePortBuffer " \
  1145.   #( #[ 16r56 16r10 16rFA 16r02 16rDF 16rF2 16rF5] \
  1146.     #(  )) >
  1147.  
  1148. <primitive 112 pTempVar 21  " closeGamePort " \
  1149.   #( #[ 16r50 16r10 16rFA 16r02 16rDF 16rF2 16rF5] \
  1150.     #(  )) >
  1151.  
  1152. <primitive 112 pTempVar 22  " openGamePort: " \
  1153.   #( #[ 16r51 16r21 16rFA 16r02 16rDF 16r60 16r57 16r10 16rFA 16r02 16rDF \
  1154.         16r72 16r22 16r50 16rB6 16rF7 16r0B 16r58 16r10 16r52 16rFA \
  1155.         16r03 16rDF 16rF2 16r20 16rF3 16rF8 16r0D 16rF2 16r20 16r30 \
  1156.         16r21 16r0B 16r12 16r31 16r0B 16r12 16rBD 16rF2 16r5D 16rF3 \
  1157.         16rF2 16rF5] \
  1158.     #( 'Game port ' ' already in use!'  )) >
  1159.  
  1160. <primitive 112 pTempVar 23  " getControllerType " \
  1161.   #( #[ 16r20 16r10 16r91 16r00 16rF3 16rF5] \
  1162.     #( #getControllerType:  )) >
  1163.  
  1164. <primitive 98 #RelJoyStick \
  1165.   <primitive 97 #RelJoyStick #GamePort #AmigaTalk:System/GamePort.st \
  1166.    #(  #private ) \
  1167.    #( #new: #waitForYPos: #waitForXPos: #waitForQualifier: #waitForButton:  \
  1168.        #setYDeltaTransition: #setXDeltaTransition: #setTimeTransition: #setKeyTransition:  \
  1169.        #getTriggerYDelta #getTriggerXDelta #getTriggerTime #getTriggerKeys #getTimeStamp  \
  1170.        #getIEAddress #getYPos #getXPos #getQualifiers #getButtonCode #clearGamePortBuffer  \
  1171.        #closeGamePort #openGamePort: #getControllerType  ) \
  1172.   pTempVar 3 6 > #ordinary >
  1173.  
  1174. pTempVar <- <primitive 110 67 >
  1175. <primitive 112 pTempVar 1  " sendFormFeed " \
  1176.   #( #[ 16r30 16rFA 16r01 16r60 16r71 16r20 16r21 16r51 16r82 16r01 16rF2 \
  1177.         16rF5] \
  1178.     #( 12 #asyncWrite:ofLength:  )) >
  1179.  
  1180. <primitive 112 pTempVar 2  " clearTabs " \
  1181.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1182.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1183.     #( #PrtCommands #aTBC3  )) >
  1184.  
  1185. <primitive 112 pTempVar 3  " setTab: " \
  1186.   #( #[ 16r40 16rA0 16r72 16r22 16r31 16rB1 16r73 16r56 16r10 16r23 16r21 \
  1187.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1188.     #( #PrtCommands #aHTS  )) >
  1189.  
  1190. <primitive 112 pTempVar 4  " setTabs:t2:t3:t4: " \
  1191.   #( #[ 16r40 16rA0 16r75 16r25 16r31 16rB1 16r76 16r56 16r10 16r26 16r21 \
  1192.         16r22 16r23 16r24 16rFA 16r07 16rE1 16rF2 16rF5] \
  1193.     #( #PrtCommands #aHTS  )) >
  1194.  
  1195. <primitive 112 pTempVar 5  " clearMargins " \
  1196.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1197.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1198.     #( #PrtCommands #aCAM  )) >
  1199.  
  1200. <primitive 112 pTempVar 6  " setLeftAndRightMargins:right: " \
  1201.   #( #[ 16r40 16rA0 16r73 16r23 16r31 16rB1 16r74 16r56 16r10 16r24 16r21 \
  1202.         16r22 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1203.     #( #PrtCommands #aSLRM  )) >
  1204.  
  1205. <primitive 112 pTempVar 7  " setTopAndBottomMargins:bottom: " \
  1206.   #( #[ 16r40 16rA0 16r73 16r23 16r31 16rB1 16r74 16r56 16r10 16r24 16r21 \
  1207.         16r22 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1208.     #( #PrtCommands #aSTBM  )) >
  1209.  
  1210. <primitive 112 pTempVar 8  " setBottomMargin: " \
  1211.   #( #[ 16r40 16rA0 16r72 16r22 16r31 16rB1 16r73 16r56 16r10 16r23 16r21 \
  1212.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1213.     #( #PrtCommands #aBMS  )) >
  1214.  
  1215. <primitive 112 pTempVar 9  " setTopMargin: " \
  1216.   #( #[ 16r40 16rA0 16r72 16r22 16r31 16rB1 16r73 16r56 16r10 16r23 16r21 \
  1217.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1218.     #( #PrtCommands #aTMS  )) >
  1219.  
  1220. <primitive 112 pTempVar 10  " setRightMargin: " \
  1221.   #( #[ 16r40 16rA0 16r72 16r22 16r31 16rB1 16r73 16r56 16r10 16r23 16r21 \
  1222.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1223.     #( #PrtCommands #aRMS  )) >
  1224.  
  1225. <primitive 112 pTempVar 11  " setLeftMargin: " \
  1226.   #( #[ 16r40 16rA0 16r72 16r22 16r31 16rB1 16r73 16r56 16r10 16r23 16r21 \
  1227.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1228.     #( #PrtCommands #aLMS  )) >
  1229.  
  1230. <primitive 112 pTempVar 12  " perfSkipOff " \
  1231.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1232.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1233.     #( #PrtCommands #aPERF0  )) >
  1234.  
  1235. <primitive 112 pTempVar 13  " setPerfSkip: " \
  1236.   #( #[ 16r21 16r50 16rC8 16rF7 16r02 16r5D 16rF3 16rF2 16r40 16rA0 16r72 \
  1237.         16r22 16r31 16rB1 16r73 16r56 16r10 16r23 16r21 16r50 16r50 \
  1238.         16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1239.     #( #PrtCommands #aPERF  )) >
  1240.  
  1241. <primitive 112 pTempVar 14  " setFormLength: " \
  1242.   #( #[ 16r40 16rA0 16r72 16r22 16r31 16rB1 16r73 16r56 16r10 16r23 16r21 \
  1243.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1244.     #( #PrtCommands #aSLPP  )) >
  1245.  
  1246. <primitive 112 pTempVar 15  " partialLineDown " \
  1247.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1248.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1249.     #( #PrtCommands #aPLD  )) >
  1250.  
  1251. <primitive 112 pTempVar 16  " partialLineUp " \
  1252.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1253.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1254.     #( #PrtCommands #aPLU  )) >
  1255.  
  1256. <primitive 112 pTempVar 17  " normalizeLine " \
  1257.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1258.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1259.     #( #PrtCommands #aSUS0  )) >
  1260.  
  1261. <primitive 112 pTempVar 18  " subScriptOff " \
  1262.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1263.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1264.     #( #PrtCommands #aSUS3  )) >
  1265.  
  1266. <primitive 112 pTempVar 19  " subScriptOn " \
  1267.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1268.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1269.     #( #PrtCommands #aSUS4  )) >
  1270.  
  1271. <primitive 112 pTempVar 20  " superScriptOff " \
  1272.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1273.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1274.     #( #PrtCommands #aSUS1  )) >
  1275.  
  1276. <primitive 112 pTempVar 21  " superScriptOn " \
  1277.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1278.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1279.     #( #PrtCommands #aSUS2  )) >
  1280.  
  1281. <primitive 112 pTempVar 22  " enlargedPitchOff " \
  1282.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1283.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1284.     #( #PrtCommands #aSHORP5  )) >
  1285.  
  1286. <primitive 112 pTempVar 23  " enlargedPitchOn " \
  1287.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1288.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1289.     #( #PrtCommands #aSHORP6  )) >
  1290.  
  1291. <primitive 112 pTempVar 24  " condensedPitchOff " \
  1292.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1293.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1294.     #( #PrtCommands #aSHORP3  )) >
  1295.  
  1296. <primitive 112 pTempVar 25  " condensedPitchOn " \
  1297.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1298.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1299.     #( #PrtCommands #aSHORP4  )) >
  1300.  
  1301. <primitive 112 pTempVar 26  " elitePitchOff " \
  1302.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1303.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1304.     #( #PrtCommands #aSHORP1  )) >
  1305.  
  1306. <primitive 112 pTempVar 27  " elitePitchOn " \
  1307.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1308.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1309.     #( #PrtCommands #aSHORP2  )) >
  1310.  
  1311. <primitive 112 pTempVar 28  " normalPitch " \
  1312.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1313.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1314.     #( #PrtCommands #aSHORP0  )) >
  1315.  
  1316. <primitive 112 pTempVar 29  " boldOff " \
  1317.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1318.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1319.     #( #PrtCommands #aSGR22  )) >
  1320.  
  1321. <primitive 112 pTempVar 30  " boldOn " \
  1322.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1323.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1324.     #( #PrtCommands #aSGR1  )) >
  1325.  
  1326. <primitive 112 pTempVar 31  " underlineOff " \
  1327.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1328.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1329.     #( #PrtCommands #aSGR24  )) >
  1330.  
  1331. <primitive 112 pTempVar 32  " underlineOn " \
  1332.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1333.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1334.     #( #PrtCommands #aSGR4  )) >
  1335.  
  1336. <primitive 112 pTempVar 33  " italicsOff " \
  1337.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1338.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1339.     #( #PrtCommands #aSGR23  )) >
  1340.  
  1341. <primitive 112 pTempVar 34  " italicsOn " \
  1342.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1343.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1344.     #( #PrtCommands #aSGR3  )) >
  1345.  
  1346. <primitive 112 pTempVar 35  " normalCharSet " \
  1347.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1348.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1349.     #( #PrtCommands #aSGR0  )) >
  1350.  
  1351. <primitive 112 pTempVar 36  " nlqOff " \
  1352.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1353.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1354.     #( #PrtCommands #aDEN1  )) >
  1355.  
  1356. <primitive 112 pTempVar 37  " nlqOn " \
  1357.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1358.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1359.     #( #PrtCommands #aDEN2  )) >
  1360.  
  1361. <primitive 112 pTempVar 38  " crlf " \
  1362.   #( #[ 16r40 16rA0 16r71 16r21 16r31 16rB1 16r72 16r56 16r10 16r22 16r50 \
  1363.         16r50 16r50 16r50 16rFA 16r07 16rE1 16rF2 16rF5] \
  1364.     #( #PrtCommands #aNEL  )) >
  1365.  
  1366. <primitive 112 pTempVar 39  " asyncWrite:ofLength: " \
  1367.   #( #[ 16r54 16r10 16r21 16r22 16rFA 16r04 16rE1 16rF3 16rF5] \
  1368.     #(  )) >
  1369.  
  1370. <primitive 112 pTempVar 40  " write:ofLength: " \
  1371.   #( #[ 16r53 16r10 16r21 16r22 16rFA 16r04 16rE1 16rF3 16rF5] \
  1372.     #(  )) >
  1373.  
  1374. <primitive 112 pTempVar 41  " sendRawWrite:ofLength: " \
  1375.   #( #[ 16r57 16r10 16r21 16r22 16rFA 16r04 16rE1 16rF2 16rF5] \
  1376.     #(  )) >
  1377.  
  1378. <primitive 112 pTempVar 42  " open: " \
  1379.   #( #[ 16r51 16r21 16rFA 16r02 16rE1 16r60 16rF5] \
  1380.     #(  )) >
  1381.  
  1382. <primitive 112 pTempVar 43  " close " \
  1383.   #( #[ 16r50 16r10 16rFA 16r02 16rE1 16rF2 16r55 16r50 16r10 16rFA 16r03 \
  1384.         16rFA 16rF2 16r5D 16rF3 16rF5] \
  1385.     #(  )) >
  1386.  
  1387. <primitive 112 pTempVar 44  " getPrinterErrorString " \
  1388.   #( #[ 16r05 16r12 16r10 16rFA 16r02 16rE1 16rF3 16rF5] \
  1389.     #(  )) >
  1390.  
  1391. <primitive 112 pTempVar 45  " dumpTaggedGraphics: " \
  1392.   #( #[ 16r21 16r51 16rB1 16r72 16r21 16r52 16rB1 16r73 16r21 16r53 16rB1 \
  1393.         16r74 16r21 16r54 16rB1 16r75 16r21 16r55 16rB1 16r76 16r21 \
  1394.         16r56 16rB1 16r77 16r21 16r57 16rB1 16r78 16r21 16r58 16rB1 \
  1395.         16r79 16r21 16r59 16rB1 16r7A 16r21 16r30 16rB1 16r7B 16r21 \
  1396.         16r31 16rB1 16r7C 16r32 16r10 16r22 16r23 16r24 16r25 16r26 \
  1397.         16r27 16r28 16r29 16r2A 16r2B 16r2C 16rFA 16r0D 16rE1 16rF2 \
  1398.         16rF5] \
  1399.     #( 10 11 13  )) >
  1400.  
  1401. <primitive 112 pTempVar 46  " setPrinterErrorHook: " \
  1402.   #( #[ 16r05 16r11 16r10 16r21 16rFA 16r03 16rE1 16rF3 16rF5] \
  1403.     #(  )) >
  1404.  
  1405. <primitive 112 pTempVar 47  " editPrinterPrefs: " \
  1406.   #( #[ 16r05 16r10 16r10 16r21 16rFA 16r03 16rE1 16rF3 16rF5] \
  1407.     #(  )) >
  1408.  
  1409. <primitive 112 pTempVar 48  " writePrinterPrefsFrom:ofSize: " \
  1410.   #( #[ 16r30 16r10 16r21 16r22 16rFA 16r04 16rE1 16rF3 16rF5] \
  1411.     #( 15  )) >
  1412.  
  1413. <primitive 112 pTempVar 49  " readPrinterPrefsInto:ofSize: " \
  1414.   #( #[ 16r30 16r10 16r21 16r22 16rFA 16r04 16rE1 16rF3 16rF5] \
  1415.     #( 14  )) >
  1416.  
  1417. <primitive 112 pTempVar 50  " dumpGraphics: " \
  1418.   #( #[ 16r21 16r51 16rB1 16r72 16r21 16r52 16rB1 16r73 16r21 16r53 16rB1 \
  1419.         16r74 16r21 16r54 16rB1 16r75 16r21 16r55 16rB1 16r76 16r21 \
  1420.         16r56 16rB1 16r77 16r21 16r57 16rB1 16r78 16r21 16r58 16rB1 \
  1421.         16r79 16r21 16r59 16rB1 16r7A 16r21 16r30 16rB1 16r7B 16r31 \
  1422.         16r10 16r22 16r23 16r24 16r25 16r26 16r27 16r28 16r29 16r2A \
  1423.         16r2B 16rFA 16r0C 16rE1 16rF2 16rF5] \
  1424.     #( 10 12  )) >
  1425.  
  1426. <primitive 112 pTempVar 51  " query " \
  1427.   #( #[ 16r55 16r10 16rFA 16r02 16rE1 16rF3 16rF5] \
  1428.     #(  )) >
  1429.  
  1430. <primitive 112 pTempVar 52  " flush " \
  1431.   #( #[ 16r58 16r10 16rFA 16r02 16rE1 16rF2 16rF5] \
  1432.     #(  )) >
  1433.  
  1434. <primitive 112 pTempVar 53  " stop " \
  1435.   #( #[ 16r30 16r10 16rFA 16r02 16rE1 16rF2 16rF5] \
  1436.     #( 11  )) >
  1437.  
  1438. <primitive 112 pTempVar 54  " restart " \
  1439.   #( #[ 16r30 16r10 16rFA 16r02 16rE1 16rF2 16rF5] \
  1440.     #( 10  )) >
  1441.  
  1442. <primitive 112 pTempVar 55  " sendExtendedCmd:parm1:parm2:parm3:parm4: " \
  1443.   #( #[ 16r56 16r10 16r21 16r22 16r23 16r24 16r25 16rFA 16r07 16rE1 16rF2 \
  1444.         16rF5] \
  1445.     #(  )) >
  1446.  
  1447. <primitive 112 pTempVar 56  " reset " \
  1448.   #( #[ 16r59 16r10 16rFA 16r02 16rE1 16rF2 16rF5] \
  1449.     #(  )) >
  1450.  
  1451. <primitive 112 pTempVar 57  " getMaxYRasterDump " \
  1452.   #( #[ 16r05 16r1C 16rFA 16r01 16rE1 16rF3 16rF5] \
  1453.     #(  )) >
  1454.  
  1455. <primitive 112 pTempVar 58  " getMaxXRasterDump " \
  1456.   #( #[ 16r05 16r1B 16rFA 16r01 16rE1 16rF3 16rF5] \
  1457.     #(  )) >
  1458.  
  1459. <primitive 112 pTempVar 59  " getNumberOfHeadPins " \
  1460.   #( #[ 16r05 16r1A 16rFA 16r01 16rE1 16rF3 16rF5] \
  1461.     #(  )) >
  1462.  
  1463. <primitive 112 pTempVar 60  " getNumberOfPrintColumns " \
  1464.   #( #[ 16r05 16r19 16rFA 16r01 16rE1 16rF3 16rF5] \
  1465.     #(  )) >
  1466.  
  1467. <primitive 112 pTempVar 61  " getVerticalDPI " \
  1468.   #( #[ 16r05 16r18 16rFA 16r01 16rE1 16rF3 16rF5] \
  1469.     #(  )) >
  1470.  
  1471. <primitive 112 pTempVar 62  " getHorizontalDPI " \
  1472.   #( #[ 16r05 16r17 16rFA 16r01 16rE1 16rF3 16rF5] \
  1473.     #(  )) >
  1474.  
  1475. <primitive 112 pTempVar 63  " getNumberOfCharSets " \
  1476.   #( #[ 16r05 16r16 16rFA 16r01 16rE1 16rF3 16rF5] \
  1477.     #(  )) >
  1478.  
  1479. <primitive 112 pTempVar 64  " getPrinterName " \
  1480.   #( #[ 16r05 16r15 16rFA 16r01 16rE1 16rF3 16rF5] \
  1481.     #(  )) >
  1482.  
  1483. <primitive 112 pTempVar 65  " getPrinterColorClassString " \
  1484.   #( #[ 16r05 16r14 16rFA 16r01 16rE1 16rF3 16rF5] \
  1485.     #(  )) >
  1486.  
  1487. <primitive 112 pTempVar 66  " getPrinterClassString " \
  1488.   #( #[ 16r05 16r13 16rFA 16r01 16rE1 16rF3 16rF5] \
  1489.     #(  )) >
  1490.  
  1491. <primitive 112 pTempVar 67  " initialize: " \
  1492.   #( #[ 16r52 16r10 16r21 16rFA 16r03 16rE1 16rF2 16rF5] \
  1493.     #(  )) >
  1494.  
  1495. <primitive 98 #PrinterDevice \
  1496.   <primitive 97 #PrinterDevice #Device #AmigaTalk:System/PrinterDevice.st \
  1497.    #(  #private ) \
  1498.    #( #sendFormFeed #clearTabs #setTab: #setTabs:t2:t3:t4: #clearMargins  \
  1499.        #setLeftAndRightMargins:right: #setTopAndBottomMargins:bottom: #setBottomMargin: #setTopMargin:  \
  1500.        #setRightMargin: #setLeftMargin: #perfSkipOff #setPerfSkip: #setFormLength:  \
  1501.        #partialLineDown #partialLineUp #normalizeLine #subScriptOff #subScriptOn  \
  1502.        #superScriptOff #superScriptOn #enlargedPitchOff #enlargedPitchOn #condensedPitchOff  \
  1503.        #condensedPitchOn #elitePitchOff #elitePitchOn #normalPitch #boldOff #boldOn  \
  1504.        #underlineOff #underlineOn #italicsOff #italicsOn #normalCharSet #nlqOff #nlqOn  \
  1505.        #crlf #asyncWrite:ofLength: #write:ofLength: #sendRawWrite:ofLength: #open:  \
  1506.        #close #getPrinterErrorString #dumpTaggedGraphics: #setPrinterErrorHook:  \
  1507.        #editPrinterPrefs: #writePrinterPrefsFrom:ofSize: #readPrinterPrefsInto:ofSize:  \
  1508.        #dumpGraphics: #query #flush #stop #restart #sendExtendedCmd:parm1:parm2:parm3:parm4:  \
  1509.        #reset #getMaxYRasterDump #getMaxXRasterDump #getNumberOfHeadPins  \
  1510.        #getNumberOfPrintColumns #getVerticalDPI #getHorizontalDPI #getNumberOfCharSets #getPrinterName  \
  1511.        #getPrinterColorClassString #getPrinterClassString #initialize:  ) \
  1512.   pTempVar 13 14 > #ordinary >
  1513.  
  1514. pTempVar <- <primitive 110 59 >
  1515. <primitive 112 pTempVar 1  " waitForCharAt:for: " \
  1516.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rF6 16rF3 16rF5] \
  1517.     #( 54  )) >
  1518.  
  1519. <primitive 112 pTempVar 2  " vPrintf:withArgs: " \
  1520.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rF6 16rF3 16rF5] \
  1521.     #( 53  )) >
  1522.  
  1523. <primitive 112 pTempVar 3  " vFPrintfTo:format:withArgs: " \
  1524.   #( #[ 16r30 16r21 16r22 16r23 16rFA 16r04 16rF6 16rF3 16rF5] \
  1525.     #( 52  )) >
  1526.  
  1527. <primitive 112 pTempVar 4  " unGetC:to: " \
  1528.   #( #[ 16r30 16r22 16r21 16rFA 16r03 16rF6 16rF3 16rF5] \
  1529.     #( 51  )) >
  1530.  
  1531. <primitive 112 pTempVar 5  " strToLong: " \
  1532.   #( #[ 16r30 16r21 16rFA 16r02 16rF6 16rF3 16rF5] \
  1533.     #( 50  )) >
  1534.  
  1535. <primitive 112 pTempVar 6  " strToDate: " \
  1536.   #( #[ 16r30 16r21 16rFA 16r02 16rF6 16rF3 16rF5] \
  1537.     #( 49  )) >
  1538.  
  1539. <primitive 112 pTempVar 7  " splitName:by:into:ofSize:at: " \
  1540.   #( #[ 16r30 16r21 16r22 16r23 16r25 16r24 16rFA 16r06 16rF6 16rF3 16rF5 \
  1541.        ] \
  1542.     #( 48  )) >
  1543.  
  1544. <primitive 112 pTempVar 8  " setProtectionOf:to: " \
  1545.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rF6 16rF3 16rF5] \
  1546.     #( 47  )) >
  1547.  
  1548. <primitive 112 pTempVar 9  " stringToProtectionMask: " \
  1549.   #( #[ 16r30 16r21 16rFA 16r02 16rF6 16rF3 16rF5] \
  1550.     #( 57  )) >
  1551.  
  1552. <primitive 112 pTempVar 10  " setPromptTo: " \
  1553.   #( #[ 16r30 16r21 16rFA 16r02 16rF6 16rF3 16rF5] \
  1554.     #( 46  )) >
  1555.  
  1556. <primitive 112 pTempVar 11  " translateIoErrToString: " \
  1557.   #( #[ 16r30 16r21 16rFA 16r02 16rF6 16rF3 16rF5] \
  1558.     #( 58  )) >
  1559.  
  1560. <primitive 112 pTempVar 12  " setIoErrTo: " \
  1561.   #( #[ 16r30 16r21 16rFA 16r02 16rF6 16rF3 16rF5] \
  1562.     #( 45  )) >
  1563.  
  1564. <primitive 112 pTempVar 13  " setFileDateOf:to: " \
  1565.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rF6 16rF3 16rF5] \
  1566.     #( 44  )) >
  1567.  
  1568. <primitive 112 pTempVar 14  " setCommentFieldOf:to: " \
  1569.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rF6 16rF3 16rF5] \
  1570.     #( 43  )) >
  1571.  
  1572. <primitive 112 pTempVar 15  " areSameLock:and: " \
  1573.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rF6 16rF3 16rF5] \
  1574.     #( 42  )) >
  1575.  
  1576. <primitive 112 pTempVar 16  " areSameDevice:and: " \
  1577.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rF6 16rF3 16rF5] \
  1578.     #( 41  )) >
  1579.  
  1580. <primitive 112 pTempVar 17  " readLinkInto:ofSize:onPort:using:and: " \
  1581.   #( #[ 16r30 16r23 16r24 16r25 16r21 16r22 16rFA 16r06 16rF6 16rF3 16rF5 \
  1582.        ] \
  1583.     #( 40  )) >
  1584.  
  1585. <primitive 112 pTempVar 18  " readItemInto:ofSize:with: " \
  1586.   #( #[ 16r30 16r21 16r22 16r23 16rFA 16r04 16rF6 16rF3 16rF5] \
  1587.     #( 39  )) >
  1588.  
  1589. <primitive 112 pTempVar 19  " readArgs:into:auxRDArgs: " \
  1590.   #( #[ 16r30 16r21 16r22 16r23 16rFA 16r04 16rF6 16rF3 16rF5] \
  1591.     #( 38  )) >
  1592.  
  1593. <primitive 112 pTempVar 20  " read:into:ofSize: " \
  1594.   #( #[ 16r30 16r21 16r22 16r23 16rFA 16r04 16rF6 16rF3 16rF5] \
  1595.     #( 37  )) >
  1596.  
  1597. <primitive 112 pTempVar 21  " putStr: " \
  1598.   #( #[ 16r30 16r21 16rFA 16r02 16rF6 16rF3 16rF5] \
  1599.     #( 36  )) >
  1600.  
  1601. <primitive 112 pTempVar 22  " printFault:code: " \
  1602.   #( #[ 16r30 16r22 16r21 16rFA 16r03 16rF6 16rF3 16rF5] \
  1603.     #( 35  )) >
  1604.  
  1605. <primitive 112 pTempVar 23  " getFilePart: " \
  1606.   #( #[ 16r30 16r21 16rFA 16r02 16rF6 16rF3 16rF5] \
  1607.     #( 55  )) >
  1608.  
  1609. <primitive 112 pTempVar 24  " getRealPathPart: " \
  1610.   #( #[ 16r30 16r21 16rFA 16r02 16rF6 16rF3 16rF5] \
  1611.     #( 56  )) >
  1612.  
  1613. <primitive 112 pTempVar 25  " getPathPart: " \
  1614.   #( #[ 16r30 16r21 16rFA 16r02 16rF6 16rF3 16rF5] \
  1615.     #( 34  )) >
  1616.  
  1617. <primitive 112 pTempVar 26  " getParentLockFromFH: " \
  1618.   #( #[ 16r30 16r21 16rFA 16r02 16rF6 16rF3 16rF5] \
  1619.     #( 33  )) >
  1620.  
  1621. <primitive 112 pTempVar 27  " getParentDirLock: " \
  1622.   #( #[ 16r30 16r21 16rFA 16r02 16rF6 16rF3 16rF5] \
  1623.     #( 33  )) >
  1624.  
  1625. <primitive 112 pTempVar 28  " getMaxCli " \
  1626.   #( #[ 16r30 16rFA 16r01 16rF6 16rF3 16rF5] \
  1627.     #( 31  )) >
  1628.  
  1629. <primitive 112 pTempVar 29  " matchNext: " \
  1630.   #( #[ 16r30 16r21 16rFA 16r02 16rF6 16rF3 16rF5] \
  1631.     #( 30  )) >
  1632.  
  1633. <primitive 112 pTempVar 30  " matchFirst:fromAnchor: " \
  1634.   #( #[ 16r05 16r1D 16r21 16r22 16rFA 16r03 16rF6 16rF3 16rF5] \
  1635.     #(  )) >
  1636.  
  1637. <primitive 112 pTempVar 31  " matchEnd: " \
  1638.   #( #[ 16r05 16r1C 16r21 16rFA 16r02 16rF6 16rF2 16rF5] \
  1639.     #(  )) >
  1640.  
  1641. <primitive 112 pTempVar 32  " isInteractive: " \
  1642.   #( #[ 16r05 16r1B 16r21 16rFA 16r02 16rF6 16rF3 16rF5] \
  1643.     #(  )) >
  1644.  
  1645. <primitive 112 pTempVar 33  " isFileSystem: " \
  1646.   #( #[ 16r05 16r1A 16r21 16rFA 16r02 16rF6 16rF3 16rF5] \
  1647.     #(  )) >
  1648.  
  1649. <primitive 112 pTempVar 34  " getIoErr " \
  1650.   #( #[ 16r05 16r19 16rFA 16r01 16rF6 16rF3 16rF5] \
  1651.     #(  )) >
  1652.  
  1653. <primitive 112 pTempVar 35  " getVarNamed:into:ofSize:flags: " \
  1654.   #( #[ 16r05 16r18 16r21 16r22 16r23 16r24 16rFA 16r05 16rF6 16rF2 16rF5 \
  1655.        ] \
  1656.     #(  )) >
  1657.  
  1658. <primitive 112 pTempVar 36  " getPromptInto:ofSize: " \
  1659.   #( #[ 16r21 16r22 16rFA 16r02 16rF6 16rF3 16rF5] \
  1660.     #(  )) >
  1661.  
  1662. <primitive 112 pTempVar 37  " getProgramNameInto:ofSize: " \
  1663.   #( #[ 16r05 16r16 16r21 16r22 16rFA 16r03 16rF6 16rF3 16rF5] \
  1664.     #(  )) >
  1665.  
  1666. <primitive 112 pTempVar 38  " getProgramDir " \
  1667.   #( #[ 16r05 16r15 16rFA 16r01 16rF6 16rF3 16rF5] \
  1668.     #(  )) >
  1669.  
  1670. <primitive 112 pTempVar 39  " getFileSysTask " \
  1671.   #( #[ 16r05 16r14 16rFA 16r01 16rF6 16rF3 16rF5] \
  1672.     #(  )) >
  1673.  
  1674. <primitive 112 pTempVar 40  " getDeviceProc:auxDevProc: " \
  1675.   #( #[ 16r05 16r13 16r21 16r22 16rFA 16r03 16rF6 16rF3 16rF5] \
  1676.     #(  )) >
  1677.  
  1678. <primitive 112 pTempVar 41  " getCurrentDirNameInto:ofSize: " \
  1679.   #( #[ 16r05 16r12 16r21 16r22 16rFA 16r03 16rF6 16rF3 16rF5] \
  1680.     #(  )) >
  1681.  
  1682. <primitive 112 pTempVar 42  " getConsoleTask " \
  1683.   #( #[ 16r05 16r11 16rFA 16r01 16rF6 16rF3 16rF5] \
  1684.     #(  )) >
  1685.  
  1686. <primitive 112 pTempVar 43  " getArgStr " \
  1687.   #( #[ 16r05 16r10 16rFA 16r01 16rF6 16rF3 16rF5] \
  1688.     #(  )) >
  1689.  
  1690. <primitive 112 pTempVar 44  " fPutS:to: " \
  1691.   #( #[ 16r30 16r22 16r21 16rFA 16r03 16rF6 16rF3 16rF5] \
  1692.     #( 15  )) >
  1693.  
  1694. <primitive 112 pTempVar 45  " fPutC:to: " \
  1695.   #( #[ 16r30 16r22 16r21 16rFA 16r03 16rF6 16rF3 16rF5] \
  1696.     #( 14  )) >
  1697.  
  1698. <primitive 112 pTempVar 46  " findVar:ofType: " \
  1699.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rF6 16rF3 16rF5] \
  1700.     #( 13  )) >
  1701.  
  1702. <primitive 112 pTempVar 47  " findCliProc: " \
  1703.   #( #[ 16r30 16r21 16rFA 16r02 16rF6 16rF3 16rF5] \
  1704.     #( 12  )) >
  1705.  
  1706. <primitive 112 pTempVar 48  " fGets:into:ofSize:using: " \
  1707.   #( #[ 16r30 16r21 16r22 16r23 16r24 16rFA 16r05 16rF6 16rF3 16rF5] \
  1708.     #( 11  )) >
  1709.  
  1710. <primitive 112 pTempVar 49  " fGetC: " \
  1711.   #( #[ 16r30 16r21 16rFA 16r02 16rF6 16rF3 16rF5] \
  1712.     #( 10  )) >
  1713.  
  1714. <primitive 112 pTempVar 50  " fault:code:into:ofSize: " \
  1715.   #( #[ 16r59 16r22 16r21 16r23 16r24 16rFA 16r05 16rF6 16rF3 16rF5] \
  1716.     #(  )) >
  1717.  
  1718. <primitive 112 pTempVar 51  " errorReport:type:arg1:fromDevicePort: " \
  1719.   #( #[ 16r58 16r21 16r22 16r23 16r24 16rFA 16r05 16rF6 16rF3 16rF5] \
  1720.     #(  )) >
  1721.  
  1722. <primitive 112 pTempVar 52  " endNotify: " \
  1723.   #( #[ 16r57 16r21 16rFA 16r02 16rF6 16rF2 16rF5] \
  1724.     #(  )) >
  1725.  
  1726. <primitive 112 pTempVar 53  " delay: " \
  1727.   #( #[ 16r56 16r21 16rFA 16r02 16rF6 16rF2 16rF5] \
  1728.     #(  )) >
  1729.  
  1730. <primitive 112 pTempVar 54  " dateToStr: " \
  1731.   #( #[ 16r55 16r21 16rFA 16r02 16rF6 16rF3 16rF5] \
  1732.     #(  )) >
  1733.  
  1734. <primitive 112 pTempVar 55  " currentDir: " \
  1735.   #( #[ 16r54 16r21 16rFA 16r02 16rF6 16rF3 16rF5] \
  1736.     #(  )) >
  1737.  
  1738. <primitive 112 pTempVar 56  " compareDates:and: " \
  1739.   #( #[ 16r53 16r21 16r22 16rFA 16r03 16rF6 16rF3 16rF5] \
  1740.     #(  )) >
  1741.  
  1742. <primitive 112 pTempVar 57  " getCLIObject " \
  1743.   #( #[ 16r52 16rFA 16r01 16rF6 16rF3 16rF5] \
  1744.     #(  )) >
  1745.  
  1746. <primitive 112 pTempVar 58  " addBuffers:toFileDevice: " \
  1747.   #( #[ 16r51 16r22 16r21 16rFA 16r03 16rF6 16rF3 16rF5] \
  1748.     #(  )) >
  1749.  
  1750. <primitive 112 pTempVar 59  " abortPacket:onMsgPort: " \
  1751.   #( #[ 16r50 16r22 16r21 16rFA 16r03 16rF6 16rF2 16rF5] \
  1752.     #(  )) >
  1753.  
  1754. <primitive 98 #SafeDOS \
  1755.   <primitive 97 #SafeDOS #Object #AmigaTalk:System/SafeDos.st \
  1756.    #(  ) \
  1757.    #( #waitForCharAt:for: #vPrintf:withArgs: #vFPrintfTo:format:withArgs:  \
  1758.        #unGetC:to: #strToLong: #strToDate: #splitName:by:into:ofSize:at:  \
  1759.        #setProtectionOf:to: #stringToProtectionMask: #setPromptTo: #translateIoErrToString:  \
  1760.        #setIoErrTo: #setFileDateOf:to: #setCommentFieldOf:to: #areSameLock:and:  \
  1761.        #areSameDevice:and: #readLinkInto:ofSize:onPort:using:and: #readItemInto:ofSize:with:  \
  1762.        #readArgs:into:auxRDArgs: #read:into:ofSize: #putStr: #printFault:code: #getFilePart:  \
  1763.        #getRealPathPart: #getPathPart: #getParentLockFromFH: #getParentDirLock: #getMaxCli  \
  1764.        #matchNext: #matchFirst:fromAnchor: #matchEnd: #isInteractive: #isFileSystem:  \
  1765.        #getIoErr #getVarNamed:into:ofSize:flags: #getPromptInto:ofSize:  \
  1766.        #getProgramNameInto:ofSize: #getProgramDir #getFileSysTask #getDeviceProc:auxDevProc:  \
  1767.        #getCurrentDirNameInto:ofSize: #getConsoleTask #getArgStr #fPutS:to: #fPutC:to: #findVar:ofType:  \
  1768.        #findCliProc: #fGets:into:ofSize:using: #fGetC: #fault:code:into:ofSize:  \
  1769.        #errorReport:type:arg1:fromDevicePort: #endNotify: #delay: #dateToStr: #currentDir: #compareDates:and:  \
  1770.        #getCLIObject #addBuffers:toFileDevice: #abortPacket:onMsgPort:  ) \
  1771.   pTempVar 6 7 > #ordinary >
  1772.  
  1773. pTempVar <- <primitive 110 67 >
  1774. <primitive 112 pTempVar 1  " isFileIn: " \
  1775.   #( #[ 16r05 16r40 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  1776.     #(  )) >
  1777.  
  1778. <primitive 112 pTempVar 2  " getOwnerGIDFrom: " \
  1779.   #( #[ 16r05 16r3F 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  1780.     #(  )) >
  1781.  
  1782. <primitive 112 pTempVar 3  " getOwnerUIDFrom: " \
  1783.   #( #[ 16r05 16r3E 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  1784.     #(  )) >
  1785.  
  1786. <primitive 112 pTempVar 4  " getDateStampObjectFrom: " \
  1787.   #( #[ 16r05 16r3D 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  1788.     #(  )) >
  1789.  
  1790. <primitive 112 pTempVar 5  " getProtectionBitsFrom: " \
  1791.   #( #[ 16r30 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  1792.     #( 60  )) >
  1793.  
  1794. <primitive 112 pTempVar 6  " getCommentFrom: " \
  1795.   #( #[ 16r30 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  1796.     #( 59  )) >
  1797.  
  1798. <primitive 112 pTempVar 7  " getBlockCountFrom: " \
  1799.   #( #[ 16r30 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  1800.     #( 58  )) >
  1801.  
  1802. <primitive 112 pTempVar 8  " getFileSizeFrom: " \
  1803.   #( #[ 16r30 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  1804.     #( 57  )) >
  1805.  
  1806. <primitive 112 pTempVar 9  " getFileNameFrom: " \
  1807.   #( #[ 16r30 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  1808.     #( 56  )) >
  1809.  
  1810. <primitive 112 pTempVar 10  " writeChars:ofSize: " \
  1811.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rF7 16rF3 16rF5] \
  1812.     #( 55  )) >
  1813.  
  1814. <primitive 112 pTempVar 11  " vFWritef:format:args: " \
  1815.   #( #[ 16r30 16r21 16r22 16r23 16rFA 16r04 16rF7 16rF3 16rF5] \
  1816.     #( 54  )) >
  1817.  
  1818. <primitive 112 pTempVar 12  " unLockRecords: " \
  1819.   #( #[ 16r30 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  1820.     #( 53  )) >
  1821.  
  1822. <primitive 112 pTempVar 13  " unLockRecord:at:ofSize: " \
  1823.   #( #[ 16r30 16r21 16r22 16r23 16rFA 16r04 16rF7 16rF3 16rF5] \
  1824.     #( 52  )) >
  1825.  
  1826. <primitive 112 pTempVar 14  " unLockDosList: " \
  1827.   #( #[ 16r30 16r21 16rFA 16r02 16rF7 16rF2 16rF5] \
  1828.     #( 51  )) >
  1829.  
  1830. <primitive 112 pTempVar 15  " unLock: " \
  1831.   #( #[ 16r30 16r21 16rFA 16r02 16rF7 16rF2 16rF5] \
  1832.     #( 50  )) >
  1833.  
  1834. <primitive 112 pTempVar 16  " startNotify: " \
  1835.   #( #[ 16r30 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  1836.     #( 49  )) >
  1837.  
  1838. <primitive 112 pTempVar 17  " setVar:from:ofSize:flags: " \
  1839.   #( #[ 16r30 16r21 16r22 16r23 16r24 16rFA 16r05 16rF7 16rF3 16rF5] \
  1840.     #( 48  )) >
  1841.  
  1842. <primitive 112 pTempVar 18  " setProgramName: " \
  1843.   #( #[ 16r30 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  1844.     #( 47  )) >
  1845.  
  1846. <primitive 112 pTempVar 19  " setProgramDirTo: " \
  1847.   #( #[ 16r30 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  1848.     #( 46  )) >
  1849.  
  1850. <primitive 112 pTempVar 20  " setOwnerUID:to: " \
  1851.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rF7 16rF3 16rF5] \
  1852.     #( 45  )) >
  1853.  
  1854. <primitive 112 pTempVar 21  " setFileMode:to: " \
  1855.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rF7 16rF3 16rF5] \
  1856.     #( 44  )) >
  1857.  
  1858. <primitive 112 pTempVar 22  " setCurrentDirNameTo: " \
  1859.   #( #[ 16r30 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  1860.     #( 43  )) >
  1861.  
  1862. <primitive 112 pTempVar 23  " rename:to: " \
  1863.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rF7 16rF3 16rF5] \
  1864.     #( 42  )) >
  1865.  
  1866. <primitive 112 pTempVar 24  " relabel:to: " \
  1867.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rF7 16rF3 16rF5] \
  1868.     #( 41  )) >
  1869.  
  1870. <primitive 112 pTempVar 25  " parsePatternNoCase:into:ofSize: " \
  1871.   #( #[ 16r30 16r21 16r22 16r23 16rFA 16r04 16rF7 16rF3 16rF5] \
  1872.     #( 40  )) >
  1873.  
  1874. <primitive 112 pTempVar 26  " parsePattern:into:ofSize: " \
  1875.   #( #[ 16r30 16r21 16r22 16r23 16rFA 16r04 16rF7 16rF3 16rF5] \
  1876.     #( 39  )) >
  1877.  
  1878. <primitive 112 pTempVar 27  " getOutputHandle " \
  1879.   #( #[ 16r30 16rFA 16r01 16rF7 16rF3 16rF5] \
  1880.     #( 38  )) >
  1881.  
  1882. <primitive 112 pTempVar 28  " openFileFromLock: " \
  1883.   #( #[ 16r30 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  1884.     #( 37  )) >
  1885.  
  1886. <primitive 112 pTempVar 29  " open:mode: " \
  1887.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rF7 16rF3 16rF5] \
  1888.     #( 36  )) >
  1889.  
  1890. <primitive 112 pTempVar 30  " getNextDosEntry:flags: " \
  1891.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rF7 16rF3 16rF5] \
  1892.     #( 35  )) >
  1893.  
  1894. <primitive 112 pTempVar 31  " getNameFromLock:into:ofSize: " \
  1895.   #( #[ 16r30 16r21 16r22 16r23 16rFA 16r04 16rF7 16rF3 16rF5] \
  1896.     #( 34  )) >
  1897.  
  1898. <primitive 112 pTempVar 32  " getNameFromFH:into:ofSize: " \
  1899.   #( #[ 16r30 16r21 16r22 16r23 16rFA 16r04 16rF7 16rF3 16rF5] \
  1900.     #( 33  )) >
  1901.  
  1902. <primitive 112 pTempVar 33  " matchPatternNoCase:in: " \
  1903.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rF7 16rF3 16rF5] \
  1904.     #( 32  )) >
  1905.  
  1906. <primitive 112 pTempVar 34  " matchPattern:in: " \
  1907.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rF7 16rF3 16rF5] \
  1908.     #( 31  )) >
  1909.  
  1910. <primitive 112 pTempVar 35  " makeLink:to:flag: " \
  1911.   #( #[ 16r30 16r21 16r22 16r23 16rFA 16r04 16rF7 16rF3 16rF5] \
  1912.     #( 30  )) >
  1913.  
  1914. <primitive 112 pTempVar 36  " makeDosEntry:ofType: " \
  1915.   #( #[ 16r05 16r1D 16r21 16r22 16rFA 16r03 16rF7 16rF3 16rF5] \
  1916.     #(  )) >
  1917.  
  1918. <primitive 112 pTempVar 37  " lockRecords:expiring: " \
  1919.   #( #[ 16r05 16r1C 16r21 16r22 16rFA 16r03 16rF7 16rF3 16rF5] \
  1920.     #(  )) >
  1921.  
  1922. <primitive 112 pTempVar 38  " lockRecord:at:ofSize:mode:expire: " \
  1923.   #( #[ 16r05 16r1B 16r21 16r22 16r23 16r24 16r25 16rFA 16r06 16rF7 16rF3 \
  1924.         16rF5] \
  1925.     #(  )) >
  1926.  
  1927. <primitive 112 pTempVar 39  " lockDosList: " \
  1928.   #( #[ 16r05 16r1A 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  1929.     #(  )) >
  1930.  
  1931. <primitive 112 pTempVar 40  " lockFile:mode: " \
  1932.   #( #[ 16r05 16r19 16r21 16r22 16rFA 16r03 16rF7 16rF3 16rF5] \
  1933.     #(  )) >
  1934.  
  1935. <primitive 112 pTempVar 41  " getInputHandle " \
  1936.   #( #[ 16r05 16r18 16rFA 16r01 16rF7 16rF3 16rF5] \
  1937.     #(  )) >
  1938.  
  1939. <primitive 112 pTempVar 42  " diskInfo:into: " \
  1940.   #( #[ 16r05 16r17 16r21 16r22 16rFA 16r03 16rF7 16rF3 16rF5] \
  1941.     #(  )) >
  1942.  
  1943. <primitive 112 pTempVar 43  " disposeInfoDataObject: " \
  1944.   #( #[ 16r05 16r42 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  1945.     #(  )) >
  1946.  
  1947. <primitive 112 pTempVar 44  " makeInfoDataObject " \
  1948.   #( #[ 16r05 16r41 16rFA 16r01 16rF7 16rF3 16rF5] \
  1949.     #(  )) >
  1950.  
  1951. <primitive 112 pTempVar 45  " fileRead:into:blockSize:count: " \
  1952.   #( #[ 16r05 16r16 16r21 16r22 16r23 16r24 16rFA 16r05 16rF7 16rF3 16rF5 \
  1953.        ] \
  1954.     #(  )) >
  1955.  
  1956. <primitive 112 pTempVar 46  " flushFileHandle: " \
  1957.   #( #[ 16r05 16r15 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  1958.     #(  )) >
  1959.  
  1960. <primitive 112 pTempVar 47  " findSegment:startingAt:flag: " \
  1961.   #( #[ 16r05 16r14 16r21 16r22 16r23 16rFA 16r04 16rF7 16rF3 16rF5] \
  1962.     #(  )) >
  1963.  
  1964. <primitive 112 pTempVar 48  " findDosEntry:in:flags: " \
  1965.   #( #[ 16r05 16r13 16r22 16r21 16r23 16rFA 16r04 16rF7 16rF3 16rF5] \
  1966.     #(  )) >
  1967.  
  1968. <primitive 112 pTempVar 49  " findArgumentIndex:using: " \
  1969.   #( #[ 16r05 16r12 16r22 16r21 16rFA 16r03 16rF7 16rF3 16rF5] \
  1970.     #(  )) >
  1971.  
  1972. <primitive 112 pTempVar 50  " examineNext:into: " \
  1973.   #( #[ 16r05 16r11 16r21 16r22 16rFA 16r03 16rF7 16rF3 16rF5] \
  1974.     #(  )) >
  1975.  
  1976. <primitive 112 pTempVar 51  " execute:with:and: " \
  1977.   #( #[ 16r05 16r10 16r21 16r22 16r23 16rFA 16r04 16rF7 16rF3 16rF5] \
  1978.     #(  )) >
  1979.  
  1980. <primitive 112 pTempVar 52  " examineFileHandle:into: " \
  1981.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rF7 16rF3 16rF5] \
  1982.     #( 15  )) >
  1983.  
  1984. <primitive 112 pTempVar 53  " examine:into: " \
  1985.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rF7 16rF3 16rF5] \
  1986.     #( 14  )) >
  1987.  
  1988. <primitive 112 pTempVar 54  " endExamine:with:from:ofSize:type: " \
  1989.   #( #[ 16r30 16r22 16r23 16r24 16r25 16r21 16rFA 16r06 16rF7 16rF2 16rF5 \
  1990.        ] \
  1991.     #( 13  )) >
  1992.  
  1993. <primitive 112 pTempVar 55  " examineAll:with:into:ofSize:type: " \
  1994.   #( #[ 16r30 16r22 16r23 16r24 16r25 16r21 16rFA 16r06 16rF7 16rF3 16rF5 \
  1995.        ] \
  1996.     #( 12  )) >
  1997.  
  1998. <primitive 112 pTempVar 56  " duplicateLockFromFH: " \
  1999.   #( #[ 16r30 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  2000.     #( 11  )) >
  2001.  
  2002. <primitive 112 pTempVar 57  " duplicateLock: " \
  2003.   #( #[ 16r30 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  2004.     #( 10  )) >
  2005.  
  2006. <primitive 112 pTempVar 58  " makeDateStamp: " \
  2007.   #( #[ 16r59 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  2008.     #(  )) >
  2009.  
  2010. <primitive 112 pTempVar 59  " createDir: " \
  2011.   #( #[ 16r58 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  2012.     #(  )) >
  2013.  
  2014. <primitive 112 pTempVar 60  " close: " \
  2015.   #( #[ 16r57 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  2016.     #(  )) >
  2017.  
  2018. <primitive 112 pTempVar 61  " checkForSignal: " \
  2019.   #( #[ 16r56 16r21 16rFA 16r02 16rF7 16rF3 16rF5] \
  2020.     #(  )) >
  2021.  
  2022. <primitive 112 pTempVar 62  " changeMode:type:to: " \
  2023.   #( #[ 16r55 16r22 16r21 16r23 16rFA 16r04 16rF7 16rF3 16rF5] \
  2024.     #(  )) >
  2025.  
  2026. <primitive 112 pTempVar 63  " addAssignment:toPath: " \
  2027.   #( #[ 16r54 16r21 16r22 16rFA 16r03 16rF7 16rF3 16rF5] \
  2028.     #(  )) >
  2029.  
  2030. <primitive 112 pTempVar 64  " addAssignment:toLock: " \
  2031.   #( #[ 16r53 16r21 16r22 16rFA 16r03 16rF7 16rF3 16rF5] \
  2032.     #(  )) >
  2033.  
  2034. <primitive 112 pTempVar 65  " addAssignmentLater:to: " \
  2035.   #( #[ 16r52 16r21 16r22 16rFA 16r03 16rF7 16rF3 16rF5] \
  2036.     #(  )) >
  2037.  
  2038. <primitive 112 pTempVar 66  " addAssignment:to: " \
  2039.   #( #[ 16r51 16r21 16r22 16rFA 16r03 16rF7 16rF3 16rF5] \
  2040.     #(  )) >
  2041.  
  2042. <primitive 112 pTempVar 67  " addPart:to:ofSize: " \
  2043.   #( #[ 16r50 16r22 16r21 16r23 16rFA 16r04 16rF7 16rF3 16rF5] \
  2044.     #(  )) >
  2045.  
  2046. <primitive 98 #UnSafeDOS \
  2047.   <primitive 97 #UnSafeDOS #Object #AmigaTalk:System/UnSafeDos.st \
  2048.    #(  ) \
  2049.    #( #isFileIn: #getOwnerGIDFrom: #getOwnerUIDFrom:  \
  2050.        #getDateStampObjectFrom: #getProtectionBitsFrom: #getCommentFrom: #getBlockCountFrom:  \
  2051.        #getFileSizeFrom: #getFileNameFrom: #writeChars:ofSize: #vFWritef:format:args:  \
  2052.        #unLockRecords: #unLockRecord:at:ofSize: #unLockDosList: #unLock: #startNotify:  \
  2053.        #setVar:from:ofSize:flags: #setProgramName: #setProgramDirTo: #setOwnerUID:to: #setFileMode:to:  \
  2054.        #setCurrentDirNameTo: #rename:to: #relabel:to: #parsePatternNoCase:into:ofSize:  \
  2055.        #parsePattern:into:ofSize: #getOutputHandle #openFileFromLock: #open:mode:  \
  2056.        #getNextDosEntry:flags: #getNameFromLock:into:ofSize: #getNameFromFH:into:ofSize:  \
  2057.        #matchPatternNoCase:in: #matchPattern:in: #makeLink:to:flag: #makeDosEntry:ofType:  \
  2058.        #lockRecords:expiring: #lockRecord:at:ofSize:mode:expire: #lockDosList: #lockFile:mode:  \
  2059.        #getInputHandle #diskInfo:into: #disposeInfoDataObject: #makeInfoDataObject  \
  2060.        #fileRead:into:blockSize:count: #flushFileHandle: #findSegment:startingAt:flag:  \
  2061.        #findDosEntry:in:flags: #findArgumentIndex:using: #examineNext:into: #execute:with:and:  \
  2062.        #examineFileHandle:into: #examine:into: #endExamine:with:from:ofSize:type:  \
  2063.        #examineAll:with:into:ofSize:type: #duplicateLockFromFH: #duplicateLock: #makeDateStamp: #createDir:  \
  2064.        #close: #checkForSignal: #changeMode:type:to: #addAssignment:toPath:  \
  2065.        #addAssignment:toLock: #addAssignmentLater:to: #addAssignment:to: #addPart:to:ofSize:  ) \
  2066.   pTempVar 6 7 > #ordinary >
  2067.  
  2068. pTempVar <- <primitive 110 25 >
  2069. <primitive 112 pTempVar 1  " writeFile:with:ofSize: " \
  2070.   #( #[ 16r05 16r18 16r21 16r22 16r23 16rFA 16r04 16rF8 16rF3 16rF5] \
  2071.     #(  )) >
  2072.  
  2073. <primitive 112 pTempVar 2  " setVBuf:to:type:bufferSize: " \
  2074.   #( #[ 16r05 16r17 16r21 16r22 16r23 16r24 16rFA 16r05 16rF8 16rF3 16rF5 \
  2075.        ] \
  2076.     #(  )) >
  2077.  
  2078. <primitive 112 pTempVar 3  " setFileSize:at:mode: " \
  2079.   #( #[ 16r05 16r16 16r21 16r22 16r23 16rFA 16r04 16rF8 16rF3 16rF5] \
  2080.     #(  )) >
  2081.  
  2082. <primitive 112 pTempVar 4  " setArgumentString: " \
  2083.   #( #[ 16r05 16r15 16r21 16rFA 16r02 16rF8 16rF3 16rF5] \
  2084.     #(  )) >
  2085.  
  2086. <primitive 112 pTempVar 5  " selectOutput: " \
  2087.   #( #[ 16r05 16r14 16r21 16rFA 16r02 16rF8 16rF3 16rF5] \
  2088.     #(  )) >
  2089.  
  2090. <primitive 112 pTempVar 6  " selectInput: " \
  2091.   #( #[ 16r05 16r13 16r21 16rFA 16r02 16rF8 16rF3 16rF5] \
  2092.     #(  )) >
  2093.  
  2094. <primitive 112 pTempVar 7  " seek:to:mode: " \
  2095.   #( #[ 16r05 16r12 16r21 16r22 16r23 16rFA 16r04 16rF8 16rF3 16rF5] \
  2096.     #(  )) >
  2097.  
  2098. <primitive 112 pTempVar 8  " runCommand:args:count:stack: " \
  2099.   #( #[ 16r05 16r11 16r21 16r24 16r22 16r23 16rFA 16r05 16rF8 16rF3 16rF5 \
  2100.        ] \
  2101.     #(  )) >
  2102.  
  2103. <primitive 112 pTempVar 9  " replyPacket:primaryResult:secondaryResult: " \
  2104.   #( #[ 16r05 16r10 16r21 16r22 16r23 16rFA 16r04 16rF8 16rF2 16rF5] \
  2105.     #(  )) >
  2106.  
  2107. <primitive 112 pTempVar 10  " inhibit:flags: " \
  2108.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rF8 16rF3 16rF5] \
  2109.     #( 15  )) >
  2110.  
  2111. <primitive 112 pTempVar 11  " fileWrite:to:blkSize:count: " \
  2112.   #( #[ 16r30 16r21 16r22 16r23 16r24 16rFA 16r05 16rF8 16rF3 16rF5] \
  2113.     #( 14  )) >
  2114.  
  2115. <primitive 112 pTempVar 12  " freeDosObject:type: " \
  2116.   #( #[ 16r30 16r22 16r21 16rFA 16r03 16rF8 16rF2 16rF5] \
  2117.     #( 13  )) >
  2118.  
  2119. <primitive 112 pTempVar 13  " freeDosEntry: " \
  2120.   #( #[ 16r30 16r21 16rFA 16r02 16rF8 16rF2 16rF5] \
  2121.     #( 12  )) >
  2122.  
  2123. <primitive 112 pTempVar 14  " freeDeviceProcess: " \
  2124.   #( #[ 16r30 16r21 16rFA 16r02 16rF8 16rF2 16rF5] \
  2125.     #( 11  )) >
  2126.  
  2127. <primitive 112 pTempVar 15  " freeArgs: " \
  2128.   #( #[ 16r30 16r21 16rFA 16r02 16rF8 16rF2 16rF5] \
  2129.     #( 10  )) >
  2130.  
  2131. <primitive 112 pTempVar 16  " exitProgram: " \
  2132.   #( #[ 16r59 16r21 16rFA 16r02 16rF8 16rF2 16rF5] \
  2133.     #(  )) >
  2134.  
  2135. <primitive 112 pTempVar 17  " makeDeviceProcess: " \
  2136.   #( #[ 16r58 16r21 16rFA 16r02 16rF8 16rF3 16rF5] \
  2137.     #(  )) >
  2138.  
  2139. <primitive 112 pTempVar 18  " deleteVar:flags: " \
  2140.   #( #[ 16r57 16r21 16r22 16rFA 16r03 16rF8 16rF3 16rF5] \
  2141.     #(  )) >
  2142.  
  2143. <primitive 112 pTempVar 19  " createProcess:priority:segments:stack: " \
  2144.   #( #[ 16r56 16r21 16r22 16r23 16r24 16rFA 16r05 16rF8 16rF3 16rF5] \
  2145.     #(  )) >
  2146.  
  2147. <primitive 112 pTempVar 20  " createNewProcess: " \
  2148.   #( #[ 16r55 16r21 16rFA 16r02 16rF8 16rF3 16rF5] \
  2149.     #(  )) >
  2150.  
  2151. <primitive 112 pTempVar 21  " cliInitRun: " \
  2152.   #( #[ 16r54 16r21 16rFA 16r02 16rF8 16rF3 16rF5] \
  2153.     #(  )) >
  2154.  
  2155. <primitive 112 pTempVar 22  " cliInitNewCLI: " \
  2156.   #( #[ 16r53 16r21 16rFA 16r02 16rF8 16rF3 16rF5] \
  2157.     #(  )) >
  2158.  
  2159. <primitive 112 pTempVar 23  " attemptLockDosList: " \
  2160.   #( #[ 16r52 16r21 16rFA 16r02 16rF8 16rF3 16rF5] \
  2161.     #(  )) >
  2162.  
  2163. <primitive 112 pTempVar 24  " allocDosObject:tags: " \
  2164.   #( #[ 16r51 16r21 16r22 16rFA 16r03 16rF8 16rF3 16rF5] \
  2165.     #(  )) >
  2166.  
  2167. <primitive 112 pTempVar 25  " addDosEntry: " \
  2168.   #( #[ 16r50 16r21 16rFA 16r02 16rF8 16rF3 16rF5] \
  2169.     #(  )) >
  2170.  
  2171. <primitive 98 #DangerousDOS \
  2172.   <primitive 97 #DangerousDOS #Object #AmigaTalk:System/DangerousDos.st \
  2173.    #(  ) \
  2174.    #( #writeFile:with:ofSize: #setVBuf:to:type:bufferSize:  \
  2175.        #setFileSize:at:mode: #setArgumentString: #selectOutput: #selectInput: #seek:to:mode:  \
  2176.        #runCommand:args:count:stack: #replyPacket:primaryResult:secondaryResult: #inhibit:flags:  \
  2177.        #fileWrite:to:blkSize:count: #freeDosObject:type: #freeDosEntry: #freeDeviceProcess: #freeArgs:  \
  2178.        #exitProgram: #makeDeviceProcess: #deleteVar:flags:  \
  2179.        #createProcess:priority:segments:stack: #createNewProcess: #cliInitRun: #cliInitNewCLI: #attemptLockDosList:  \
  2180.        #allocDosObject:tags: #addDosEntry:  ) \
  2181.   pTempVar 5 6 > #ordinary >
  2182.  
  2183. pTempVar <- <primitive 110 17 >
  2184. <primitive 112 pTempVar 1  " waitForPacket " \
  2185.   #( #[ 16r05 16r10 16rFA 16r01 16rF9 16rF3 16rF5] \
  2186.     #(  )) >
  2187.  
  2188. <primitive 112 pTempVar 2  " unLoadSegment: " \
  2189.   #( #[ 16r30 16r21 16rFA 16r02 16rF9 16rF3 16rF5] \
  2190.     #( 15  )) >
  2191.  
  2192. <primitive 112 pTempVar 3  " systemCommandTagList:tags: " \
  2193.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rF9 16rF3 16rF5] \
  2194.     #( 14  )) >
  2195.  
  2196. <primitive 112 pTempVar 4  " setFileSystemTask: " \
  2197.   #( #[ 16r30 16r21 16rFA 16r02 16rF9 16rF3 16rF5] \
  2198.     #( 13  )) >
  2199.  
  2200. <primitive 112 pTempVar 5  " setConsoleTask: " \
  2201.   #( #[ 16r30 16r21 16rFA 16r02 16rF9 16rF3 16rF5] \
  2202.     #( 12  )) >
  2203.  
  2204. <primitive 112 pTempVar 6  " sendPacket:to:replyTo: " \
  2205.   #( #[ 16r30 16r21 16r22 16r23 16rFA 16r04 16rF9 16rF2 16rF5] \
  2206.     #( 11  )) >
  2207.  
  2208. <primitive 112 pTempVar 7  " removeSegment: " \
  2209.   #( #[ 16r30 16r21 16rFA 16r02 16rF9 16rF3 16rF5] \
  2210.     #( 10  )) >
  2211.  
  2212. <primitive 112 pTempVar 8  " removeDosEntry: " \
  2213.   #( #[ 16r59 16r21 16rFA 16r02 16rF9 16rF3 16rF5] \
  2214.     #(  )) >
  2215.  
  2216. <primitive 112 pTempVar 9  " removeAssignList:from: " \
  2217.   #( #[ 16r58 16r21 16r22 16rFA 16r03 16rF9 16rF3 16rF5] \
  2218.     #(  )) >
  2219.  
  2220. <primitive 112 pTempVar 10  " newLoadSegment:tags: " \
  2221.   #( #[ 16r57 16r21 16r22 16rFA 16r03 16rF9 16rF3 16rF5] \
  2222.     #(  )) >
  2223.  
  2224. <primitive 112 pTempVar 11  " loadSegment: " \
  2225.   #( #[ 16r56 16r21 16rFA 16r02 16rF9 16rF3 16rF5] \
  2226.     #(  )) >
  2227.  
  2228. <primitive 112 pTempVar 12  " internalUnLoadSegment:freeFuncPtr: " \
  2229.   #( #[ 16r55 16r21 16r22 16rFA 16r03 16rF9 16rF3 16rF5] \
  2230.     #(  )) >
  2231.  
  2232. <primitive 112 pTempVar 13  " internalLoadSegment:ovlyTable:funcArray:stackPtr: " \
  2233.   #( #[ 16r54 16r21 16r22 16r23 16r24 16rFA 16r05 16rF9 16rF3 16rF5] \
  2234.     #(  )) >
  2235.  
  2236. <primitive 112 pTempVar 14  " formatDisk:on:type: " \
  2237.   #( #[ 16r53 16r21 16r22 16r23 16rFA 16r04 16rF9 16rF3 16rF5] \
  2238.     #(  )) >
  2239.  
  2240. <primitive 112 pTempVar 15  " doPacket:onPort:arguments: " \
  2241.   #( #[ 16r23 16r51 16rB1 16r74 16r23 16r52 16rB1 16r75 16r23 16r53 16rB1 \
  2242.         16r76 16r23 16r54 16rB1 16r77 16r23 16r55 16rB1 16r78 16r52 \
  2243.         16r22 16r21 16r24 16r25 16r26 16r27 16r28 16rFA 16r08 16rF9 \
  2244.         16rF3 16rF5] \
  2245.     #(  )) >
  2246.  
  2247. <primitive 112 pTempVar 16  " deleteFile: " \
  2248.   #( #[ 16r51 16r21 16rFA 16r02 16rF9 16rF3 16rF5] \
  2249.     #(  )) >
  2250.  
  2251. <primitive 112 pTempVar 17  " addSegment:named:useCount: " \
  2252.   #( #[ 16r50 16r22 16r21 16r23 16rFA 16r04 16rF9 16rF3 16rF5] \
  2253.     #(  )) >
  2254.  
  2255. <primitive 98 #VeryDangerousDOS \
  2256.   <primitive 97 #VeryDangerousDOS #Object #AmigaTalk:System/VeryDangerousDos.st \
  2257.    #(  ) \
  2258.    #( #waitForPacket #unLoadSegment: #systemCommandTagList:tags:  \
  2259.        #setFileSystemTask: #setConsoleTask: #sendPacket:to:replyTo: #removeSegment:  \
  2260.        #removeDosEntry: #removeAssignList:from: #newLoadSegment:tags: #loadSegment:  \
  2261.        #internalUnLoadSegment:freeFuncPtr: #internalLoadSegment:ovlyTable:funcArray:stackPtr:  \
  2262.        #formatDisk:on:type: #doPacket:onPort:arguments: #deleteFile: #addSegment:named:useCount:  ) \
  2263.   pTempVar 9 9 > #ordinary >
  2264.  
  2265. pTempVar <- <primitive 110 7 >
  2266. <primitive 112 pTempVar 1  " printString " \
  2267.   #( #[ 16r30 16rF3 16rF5] \
  2268.     #( 'DosFlags'  )) >
  2269.  
  2270. <primitive 112 pTempVar 2  " systemTag: " \
  2271.   #( #[ 16r52 16r11 16r21 16rFA 16r03 16rCE 16rF3 16rF5] \
  2272.     #(  )) >
  2273.  
  2274. <primitive 112 pTempVar 3  " close " \
  2275.   #( #[ 16r50 16r12 16r11 16rFA 16r03 16rCE 16r62 16r5D 16rF1 16r61 16rF3 \
  2276.         16rF5] \
  2277.     #(  )) >
  2278.  
  2279. <primitive 112 pTempVar 4  " privateSetup " \
  2280.   #( #[ 16r10 16rA1 16rF7 16r13 16r20 16r80 16r00 16r60 16r31 16r63 16r53 \
  2281.         16rFA 16r01 16rCE 16r61 16r51 16r13 16r11 16rFA 16r03 16rCE \
  2282.         16r62 16r5D 16rF2 16r20 16rF3 16rF5] \
  2283.     #( #privateNew 'AmigaTalk:prelude/listFiles/DosFlags.dictionary'  )) >
  2284.  
  2285. <primitive 112 pTempVar 5  " new " \
  2286.   #( #[ 16r20 16r80 16r00 16rF3 16rF5] \
  2287.     #( #privateSetup  )) >
  2288.  
  2289. <primitive 112 pTempVar 6  " privateNew " \
  2290.   #( #[ 16r51 16rFA 16r01 16r6E 16r71 16r21 16rF3 16rF5] \
  2291.     #(  )) >
  2292.  
  2293. <primitive 112 pTempVar 7  " isSingleton " \
  2294.   #( #[ 16r5B 16rF3 16rF5] \
  2295.     #(  )) >
  2296.  
  2297. <primitive 98 #DosFlags \
  2298.   <primitive 97 #DosFlags #Object #AmigaTalk:System/DosFlags.st \
  2299.    #(  #uniqueInstance #private0 #private1 #myName ) \
  2300.    #( #printString #systemTag: #close #privateSetup #new #privateNew  \
  2301.        #isSingleton  ) \
  2302.   pTempVar 2 6 > #isSingleton >
  2303.  
  2304. pTempVar <- <primitive 110 38 >
  2305. <primitive 112 pTempVar 1  " setNAGBaseName: " \
  2306.   #( #[ 16r52 16r30 16r21 16rFA 16r03 16rD1 16rF2 16rF5] \
  2307.     #( 37  )) >
  2308.  
  2309. <primitive 112 pTempVar 2  " setNAGTags: " \
  2310.   #( #[ 16r52 16r05 16r1D 16r12 16r21 16rFA 16r04 16rD1 16rF2 16rF5] \
  2311.     #(  )) >
  2312.  
  2313. <primitive 112 pTempVar 3  " setNAGStartLine: " \
  2314.   #( #[ 16r52 16r05 16r1C 16r12 16r21 16rFA 16r04 16rD1 16rF2 16rF5] \
  2315.     #(  )) >
  2316.  
  2317. <primitive 112 pTempVar 4  " setNAGStartNode: " \
  2318.   #( #[ 16r52 16r05 16r1B 16r12 16r21 16rFA 16r04 16rD1 16rF2 16rF5] \
  2319.     #(  )) >
  2320.  
  2321. <primitive 112 pTempVar 5  " disposeContext " \
  2322.   #( #[ 16r52 16r30 16r12 16rFA 16r03 16rD1 16rF2 16rF5] \
  2323.     #( 30  )) >
  2324.  
  2325. <primitive 112 pTempVar 6  " setNAGContextStrings: " \
  2326.   #( #[ 16r52 16r05 16r1A 16r12 16r21 16rFA 16r04 16rD1 16rF2 16rF5] \
  2327.     #(  )) >
  2328.  
  2329. <primitive 112 pTempVar 7  " setNAGFlags: " \
  2330.   #( #[ 16r52 16r05 16r19 16r12 16r21 16rFA 16r04 16rD1 16rF2 16rF5] \
  2331.     #(  )) >
  2332.  
  2333. <primitive 112 pTempVar 8  " setNAGARexxClientPort: " \
  2334.   #( #[ 16r52 16r05 16r18 16r12 16r21 16rFA 16r04 16rD1 16rF2 16rF5] \
  2335.     #(  )) >
  2336.  
  2337. <primitive 112 pTempVar 9  " setNAGPulicScreen: " \
  2338.   #( #[ 16r52 16r05 16r17 16r12 16r21 16rFA 16r04 16rD1 16rF2 16rF5] \
  2339.     #(  )) >
  2340.  
  2341. <primitive 112 pTempVar 10  " setNAGScreen: " \
  2342.   #( #[ 16r52 16r05 16r16 16r12 16r21 16rFA 16r04 16rD1 16rF2 16rF5] \
  2343.     #(  )) >
  2344.  
  2345. <primitive 112 pTempVar 11  " setNAGName: " \
  2346.   #( #[ 16r52 16r05 16r15 16r12 16r21 16rFA 16r04 16rD1 16rF2 16rF5] \
  2347.     #(  )) >
  2348.  
  2349. <primitive 112 pTempVar 12  " setNAGDirectoryLock: " \
  2350.   #( #[ 16r52 16r05 16r14 16r12 16r21 16rFA 16r04 16rD1 16rF2 16rF5] \
  2351.     #(  )) >
  2352.  
  2353. <primitive 112 pTempVar 13  " disposeNAG " \
  2354.   #( #[ 16r50 16r52 16r12 16rFA 16r03 16rD1 16rF2 16r55 16r50 16r12 16rFA \
  2355.         16r03 16rFA 16rF2 16r5D 16rF3 16rF5] \
  2356.     #(  )) >
  2357.  
  2358. <primitive 112 pTempVar 14  " createNewAmigaGuideObject " \
  2359.   #( #[ 16r50 16r51 16r05 16rFA 16rFA 16r03 16rD1 16rF1 16r62 16rF3 16rF5 \
  2360.        ] \
  2361.     #(  )) >
  2362.  
  2363. <primitive 112 pTempVar 15  " expungeCrossReferences " \
  2364.   #( #[ 16r52 16r05 16r13 16rFA 16r02 16rD1 16rF2 16rF5] \
  2365.     #(  )) >
  2366.  
  2367. <primitive 112 pTempVar 16  " loadCrossReferencesFrom:in: " \
  2368.   #( #[ 16r52 16r05 16r12 16r22 16r21 16rFA 16r04 16rD1 16rF3 16rF5] \
  2369.     #(  )) >
  2370.  
  2371. <primitive 112 pTempVar 17  " setAmigaGuideContext:tags: " \
  2372.   #( #[ 16r52 16r30 16r10 16r21 16r22 16rFA 16r05 16rD1 16rF3 16rF5] \
  2373.     #( 15  )) >
  2374.  
  2375. <primitive 112 pTempVar 18  " setAmigaGuideAttributes: " \
  2376.   #( #[ 16r52 16r30 16r10 16r21 16rFA 16r04 16rD1 16rF3 16rF5] \
  2377.     #( 14  )) >
  2378.  
  2379. <primitive 112 pTempVar 19  " sendAmigaGuideContext: " \
  2380.   #( #[ 16r52 16r30 16r10 16r21 16rFA 16r04 16rD1 16rF3 16rF5] \
  2381.     #( 13  )) >
  2382.  
  2383. <primitive 112 pTempVar 20  " sendAmigaGuideCommand:tags: " \
  2384.   #( #[ 16r52 16r30 16r10 16r21 16r22 16rFA 16r05 16rD1 16rF3 16rF5] \
  2385.     #( 12  )) >
  2386.  
  2387. <primitive 112 pTempVar 21  " replyAmigaGuideMsg: " \
  2388.   #( #[ 16r52 16r30 16r21 16rFA 16r03 16rD1 16rF2 16rF5] \
  2389.     #( 11  )) >
  2390.  
  2391. <primitive 112 pTempVar 22  " openAmigaGuideASync: " \
  2392.   #( #[ 16r52 16r30 16r12 16r21 16rFA 16r04 16rD1 16rF1 16r60 16rF3 16rF5 \
  2393.        ] \
  2394.     #( 10  )) >
  2395.  
  2396. <primitive 112 pTempVar 23  " openAmigaGuide: " \
  2397.   #( #[ 16r52 16r51 16r12 16r21 16rFA 16r04 16rD1 16rF1 16r60 16rF3 16rF5 \
  2398.        ] \
  2399.     #(  )) >
  2400.  
  2401. <primitive 112 pTempVar 24  " unlockAmigaGuideBase: " \
  2402.   #( #[ 16r52 16r59 16r21 16rFA 16r03 16rD1 16rF2 16rF5] \
  2403.     #(  )) >
  2404.  
  2405. <primitive 112 pTempVar 25  " lockAmigaGuideBase " \
  2406.   #( #[ 16r52 16r58 16r10 16rFA 16r03 16rD1 16rF3 16rF5] \
  2407.     #(  )) >
  2408.  
  2409. <primitive 112 pTempVar 26  " getAmigaGuideString: " \
  2410.   #( #[ 16r52 16r57 16r21 16rFA 16r03 16rD1 16rF3 16rF5] \
  2411.     #(  )) >
  2412.  
  2413. <primitive 112 pTempVar 27  " getAGMsgReturnSecondaryValue: " \
  2414.   #( #[ 16r52 16r30 16r21 16rFA 16r03 16rD1 16rF3 16rF5] \
  2415.     #( 36  )) >
  2416.  
  2417. <primitive 112 pTempVar 28  " getAGMsgReturnPrimaryValue: " \
  2418.   #( #[ 16r52 16r30 16r21 16rFA 16r03 16rD1 16rF3 16rF5] \
  2419.     #( 35  )) >
  2420.  
  2421. <primitive 112 pTempVar 29  " getAGMsgDataSize: " \
  2422.   #( #[ 16r52 16r30 16r21 16rFA 16r03 16rD1 16rF3 16rF5] \
  2423.     #( 34  )) >
  2424.  
  2425. <primitive 112 pTempVar 30  " getAGMsgDataType: " \
  2426.   #( #[ 16r52 16r30 16r21 16rFA 16r03 16rD1 16rF3 16rF5] \
  2427.     #( 33  )) >
  2428.  
  2429. <primitive 112 pTempVar 31  " getAGMsgData: " \
  2430.   #( #[ 16r52 16r30 16r21 16rFA 16r03 16rD1 16rF3 16rF5] \
  2431.     #( 32  )) >
  2432.  
  2433. <primitive 112 pTempVar 32  " getAGMsgType: " \
  2434.   #( #[ 16r52 16r30 16r21 16rFA 16r03 16rD1 16rF3 16rF5] \
  2435.     #( 31  )) >
  2436.  
  2437. <primitive 112 pTempVar 33  " getAmigaGuideMsg " \
  2438.   #( #[ 16r52 16r56 16r10 16rFA 16r03 16rD1 16rF3 16rF5] \
  2439.     #(  )) >
  2440.  
  2441. <primitive 112 pTempVar 34  " getAmigaGuideAttribute:into: " \
  2442.   #( #[ 16r52 16r55 16r21 16r10 16r22 16rFA 16r05 16rD1 16rF3 16rF5] \
  2443.     #(  )) >
  2444.  
  2445. <primitive 112 pTempVar 35  " closeAmigaGuide " \
  2446.   #( #[ 16r52 16r50 16r10 16rFA 16r03 16rD1 16rF2 16r55 16r50 16r10 16rFA \
  2447.         16r03 16rFA 16rF2 16r5D 16rF3 16rF5] \
  2448.     #(  )) >
  2449.  
  2450. <primitive 112 pTempVar 36  " getAmigaGuideSignal " \
  2451.   #( #[ 16r52 16r54 16r10 16rFA 16r03 16rD1 16rF3 16rF5] \
  2452.     #(  )) >
  2453.  
  2454. <primitive 112 pTempVar 37  " removeAmigaGuideHost: " \
  2455.   #( #[ 16r11 16r80 16r00 16rF7 16r08 16r52 16r53 16r11 16r21 16rFA 16r04 \
  2456.         16rD1 16rF3 16rF2 16rF5] \
  2457.     #( #isNotNil  )) >
  2458.  
  2459. <primitive 112 pTempVar 38  " addAmigaGuideHost:hook:tags: " \
  2460.   #( #[ 16r52 16r52 16r22 16r21 16r23 16rFA 16r05 16rD1 16r61 16rF5] \
  2461.     #(  )) >
  2462.  
  2463. <primitive 98 #AmigaGuide \
  2464.   <primitive 97 #AmigaGuide #Object #AmigaTalk:System/AmigaGuide.st \
  2465.    #(  #private #private2 #private3 ) \
  2466.    #( #setNAGBaseName: #setNAGTags: #setNAGStartLine: #setNAGStartNode:  \
  2467.        #disposeContext #setNAGContextStrings: #setNAGFlags: #setNAGARexxClientPort:  \
  2468.        #setNAGPulicScreen: #setNAGScreen: #setNAGName: #setNAGDirectoryLock: #disposeNAG  \
  2469.        #createNewAmigaGuideObject #expungeCrossReferences #loadCrossReferencesFrom:in:  \
  2470.        #setAmigaGuideContext:tags: #setAmigaGuideAttributes: #sendAmigaGuideContext:  \
  2471.        #sendAmigaGuideCommand:tags: #replyAmigaGuideMsg: #openAmigaGuideASync: #openAmigaGuide:  \
  2472.        #unlockAmigaGuideBase: #lockAmigaGuideBase #getAmigaGuideString:  \
  2473.        #getAGMsgReturnSecondaryValue: #getAGMsgReturnPrimaryValue: #getAGMsgDataSize: #getAGMsgDataType:  \
  2474.        #getAGMsgData: #getAGMsgType: #getAmigaGuideMsg #getAmigaGuideAttribute:into:  \
  2475.        #closeAmigaGuide #getAmigaGuideSignal #removeAmigaGuideHost:  \
  2476.        #addAmigaGuideHost:hook:tags:  ) \
  2477.   pTempVar 4 7 > #ordinary >
  2478.  
  2479. pTempVar <- <primitive 110 5 >
  2480. <primitive 112 pTempVar 1  " privateSetup " \
  2481.   #( #[ 16r10 16rA1 16rF7 16r07 16r20 16r80 16r00 16r60 16r20 16r80 16r01 \
  2482.         16rF2 16r20 16rF3 16rF5] \
  2483.     #( #privateNew #privateInitializeDictionary  )) >
  2484.  
  2485. <primitive 112 pTempVar 2  " privateInitializeDictionary " \
  2486.   #( #[ 16r20 16r30 16r31 16rD0 16rF2 16r20 16r32 16r33 16rD0 16rF2 16r20 \
  2487.         16r34 16r35 16rD0 16rF2 16r20 16r36 16r37 16rD0 16rF2 16r20 \
  2488.         16r38 16r39 16rD0 16rF2 16r20 16r3A 16r3B 16rD0 16rF2 16r20 \
  2489.         16r3C 16r3D 16rD0 16rF2 16r20 16r3E 16r3F 16rD0 16rF2 16r20 \
  2490.         16r03 16r10 16r03 16r11 16rD0 16rF2 16r20 16r03 16r12 16r03 \
  2491.         16r13 16rD0 16rF2 16r20 16r03 16r14 16r03 16r15 16rD0 16rF2 \
  2492.         16r20 16r03 16r16 16r03 16r17 16rD0 16rF2 16r20 16r03 16r18 \
  2493.         16r03 16r19 16rD0 16rF2 16r20 16r03 16r1A 16r03 16r1B 16rD0 \
  2494.         16rF2 16r20 16r03 16r1C 16r03 16r1D 16rD0 16rF2 16r20 16r03 \
  2495.         16r1E 16r03 16r1F 16rD0 16rF2 16r20 16r03 16r20 16r03 16r21 \
  2496.         16rD0 16rF2 16r20 16r03 16r22 16r03 16r23 16rD0 16rF2 16r20 \
  2497.         16r03 16r24 16r03 16r25 16rD0 16rF2 16r20 16r03 16r26 16r03 \
  2498.         16r27 16rD0 16rF2 16r20 16r03 16r28 16r03 16r29 16rD0 16rF2 \
  2499.         16r20 16r03 16r2A 16r03 16r2B 16rD0 16rF2 16r20 16r03 16r2C \
  2500.         16r03 16r2D 16rD0 16rF2 16r20 16r03 16r2E 16r51 16rD0 16rF2 \
  2501.         16r20 16r03 16r2F 16r52 16rD0 16rF2 16r20 16r03 16r30 16r54 \
  2502.         16rD0 16rF2 16r20 16r03 16r31 16r58 16rD0 16rF2 16r20 16r03 \
  2503.         16r32 16r03 16r33 16rD0 16rF2 16r20 16r03 16r34 16r03 16r35 \
  2504.         16rD0 16rF2 16r20 16r03 16r36 16r03 16r37 16rD0 16rF2 16r20 \
  2505.         16r03 16r38 16r50 16rD0 16rF2 16r20 16r03 16r39 16r51 16rD0 \
  2506.         16rF2 16r20 16r03 16r3A 16r05 16r64 16rD0 16rF2 16r20 16r03 \
  2507.         16r3B 16r05 16r65 16rD0 16rF2 16r20 16r03 16r3C 16r05 16r66 \
  2508.         16rD0 16rF2 16r20 16r03 16r3D 16r05 16r67 16rD0 16rF2 16r20 \
  2509.         16r03 16r3E 16r05 16r68 16rD0 16rF2 16r20 16r03 16r3F 16r05 \
  2510.         16r69 16rD0 16rF2 16r20 16r03 16r40 16r05 16r6A 16rD0 16rF2 \
  2511.         16r20 16r03 16r41 16r05 16r6B 16rD0 16rF2 16r20 16r03 16r42 \
  2512.         16r05 16r6C 16rD0 16rF2 16r20 16r03 16r43 16r05 16r71 16rD0 \
  2513.         16rF2 16r20 16r03 16r44 16r51 16rD0 16rF2 16r20 16r03 16r45 \
  2514.         16r52 16rD0 16rF2 16r20 16r03 16r46 16r53 16rD0 16rF2 16r20 \
  2515.         16r03 16r47 16r03 16r48 16rD0 16rF2 16r20 16r03 16r49 16r51 \
  2516.         16rD0 16rF2 16r20 16r03 16r4A 16r52 16rD0 16rF2 16r20 16r03 \
  2517.         16r4B 16r54 16rD0 16rF2 16r20 16r03 16r4C 16r58 16rD0 16rF2 \
  2518.         16r20 16r03 16r4D 16r05 16r10 16rD0 16rF2 16r20 16r03 16r4E \
  2519.         16r03 16r4F 16rD0 16rF2 16r20 16r03 16r50 16r05 16r40 16rD0 \
  2520.         16rF2 16r20 16r03 16r51 16r03 16r52 16rD0 16rF2 16r20 16r03 \
  2521.         16r53 16r03 16r54 16rD0 16rF2 16r20 16r03 16r55 16r03 16r56 \
  2522.         16rD0 16rF2 16r20 16r03 16r57 16r03 16r58 16rD0 16rF2 16r20 \
  2523.         16r03 16r59 16r50 16rD0 16rF2 16r20 16r03 16r5A 16r51 16rD0 \
  2524.         16rF2 16r20 16r03 16r5B 16r52 16rD0 16rF2 16r20 16r03 16r5C \
  2525.         16r53 16rD0 16rF2 16r20 16r03 16r5D 16r54 16rD0 16rF2 16r20 \
  2526.         16r03 16r5E 16r55 16rD0 16rF2 16r20 16r03 16r5F 16r56 16rD0 \
  2527.         16rF2 16r20 16r03 16r60 16r57 16rD0 16rF2 16r20 16r03 16r61 \
  2528.         16r58 16rD0 16rF2 16rF5] \
  2529.     #( #StartupMsgID 16r11001 #LoginToolID 16r11002 #LogoutToolID 16r11003 \
  2530.         #ShutdownMsgID 16r11004 #ActivateToolID 16r11005 #DeactivateToolID \
  2531.         16r11006 #ActiveToolID 16r11007 #InactiveToolID 16r11008 #ToolStatusID \
  2532.         16r11009 #ToolCmdID 16r1100A #ToolCmdReplyID 16r1100B #ShutdownToolID \
  2533.         16r1100C #AGA_Path 16r80000001 #AGA_XRefList 16r80000002 #AGA_Activate \
  2534.         16r80000003 #AGA_Context 16r80000004 #AGA_HelpGroup 16r80000005 \
  2535.         #AGA_Reserved1 16r80000006 #AGA_Reserved2 16r80000007 #AGA_Reserved3 \
  2536.         16r80000008 #AGA_ARexxPort 16r80000009 #AGA_ARexxPortName 16r8000000A \
  2537.         #AGA_Secure 16r8000000B #HTF_LOAD_INDEX #HTF_LOAD_ALL #HTF_CACHE_NODE \
  2538.         #HTF_CACHE_DB #HTF_UNIQUE 16r8000 #HTF_NOACTIVATE 16r10000 #HTFC_SYSGADS \
  2539.         16r80000000 #HTH_OPEN #HTH_CLOSE #HTERR_NOT_ENOUGH_MEMORY #HTERR_CANT_OPEN_DATABASE \
  2540.         #HTERR_CANT_FIND_NODE #HTERR_CANT_OPEN_NODE #HTERR_CANT_OPEN_WINDOW \
  2541.         #HTERR_INVALID_COMMAND #HTERR_CANT_COMPLETE #HTERR_PORT_CLOSED \
  2542.         #HTERR_CANT_CREATE_PORT #HTERR_KEYWORD_NOT_FOUND #HM_FINDNODE \
  2543.         #HM_OPENNODE #HM_CLOSENODE #HM_EXPUNGE 10 #HTNF_KEEP #HTNF_RESERVED1 \
  2544.         #HTNF_RESERVED2 #HTNF_ASCII #HTNF_RESERVED3 #HTNF_CLEAN 32 #HTNF_DONE \
  2545.         #HTNA_Screen 16r80000001 #HTNA_Pens 16r80000002 #HTNA_Rectangle \
  2546.         16r80000003 #HTNA_HelpGroup 16r80000005 #XR_GENERIC #XR_FUNCTION \
  2547.         #XR_COMMAND #XR_INCLUDE #XR_MACRO #XR_STRUCT #XR_FIELD #XR_TYPEDEF \
  2548.         #XR_DEFINE  )) >
  2549.  
  2550. <primitive 112 pTempVar 3  " new " \
  2551.   #( #[ 16r20 16r80 16r00 16rF3 16rF5] \
  2552.     #( #privateSetup  )) >
  2553.  
  2554. <primitive 112 pTempVar 4  " privateNew " \
  2555.   #( #[ 16r20 16r90 16r00 16r71 16r21 16rF3 16rF5] \
  2556.     #( #new  )) >
  2557.  
  2558. <primitive 112 pTempVar 5  " isSingleton " \
  2559.   #( #[ 16r5B 16rF3 16rF5] \
  2560.     #(  )) >
  2561.  
  2562. <primitive 98 #AGuideTags \
  2563.   <primitive 97 #AGuideTags #Dictionary #AmigaTalk:System/AmigaGuide.st \
  2564.    #(  #uniqueInstance ) \
  2565.    #( #privateSetup #privateInitializeDictionary #new #privateNew  \
  2566.        #isSingleton  ) \
  2567.   pTempVar 2 4 > #isSingleton >
  2568.  
  2569. pTempVar <- <primitive 110 30 >
  2570. <primitive 112 pTempVar 1  " removeMemHandler: " \
  2571.   #( #[ 16r54 16r05 16r59 16r21 16rFA 16r03 16rD1 16rF2 16rF5] \
  2572.     #(  )) >
  2573.  
  2574. <primitive 112 pTempVar 2  " addMemHandler: " \
  2575.   #( #[ 16r54 16r05 16r58 16r21 16rFA 16r03 16rD1 16rF2 16rF5] \
  2576.     #(  )) >
  2577.  
  2578. <primitive 112 pTempVar 3  " rawDoFormat:to:renderFunction:data: " \
  2579.   #( #[ 16r54 16r05 16r57 16r21 16r22 16r23 16r24 16rFA 16r06 16rD1 16rF3 \
  2580.         16rF5] \
  2581.     #(  )) >
  2582.  
  2583. <primitive 112 pTempVar 4  " stackSwap: " \
  2584.   #( #[ 16r54 16r05 16r56 16r21 16rFA 16r03 16rD1 16rF2 16rF5] \
  2585.     #(  )) >
  2586.  
  2587. <primitive 112 pTempVar 5  " coldReboot " \
  2588.   #( #[ 16r54 16r05 16r55 16rFA 16r02 16rD1 16rF2 16rF5] \
  2589.     #(  )) >
  2590.  
  2591. <primitive 112 pTempVar 6  " cacheControl:with: " \
  2592.   #( #[ 16r54 16r05 16r4F 16r21 16r22 16rFA 16r04 16rD1 16rF3 16rF5] \
  2593.     #(  )) >
  2594.  
  2595. <primitive 112 pTempVar 7  " cacheClearE:length:caches: " \
  2596.   #( #[ 16r54 16r05 16r4E 16r21 16r22 16r23 16rFA 16r05 16rD1 16rF2 16rF5 \
  2597.        ] \
  2598.     #(  )) >
  2599.  
  2600. <primitive 112 pTempVar 8  " cacheClearU " \
  2601.   #( #[ 16r54 16r05 16r4D 16rFA 16r02 16rD1 16rF2 16rF5] \
  2602.     #(  )) >
  2603.  
  2604. <primitive 112 pTempVar 9  " addMemList:attrs:priority:base:named: " \
  2605.   #( #[ 16r54 16r05 16r4C 16r21 16r22 16r23 16r24 16r25 16rFA 16r07 16rD1 \
  2606.         16rF2 16rF5] \
  2607.     #(  )) >
  2608.  
  2609. <primitive 112 pTempVar 10  " sumKickData " \
  2610.   #( #[ 16r54 16r05 16r4B 16rFA 16r02 16rD1 16rF3 16rF5] \
  2611.     #(  )) >
  2612.  
  2613. <primitive 112 pTempVar 11  " getConditionCodes " \
  2614.   #( #[ 16r54 16r05 16r3D 16rFA 16r02 16rD1 16rF3 16rF5] \
  2615.     #(  )) >
  2616.  
  2617. <primitive 112 pTempVar 12  " openResource: " \
  2618.   #( #[ 16r54 16r30 16r21 16rFA 16r03 16rD1 16rF3 16rF5] \
  2619.     #( 60  )) >
  2620.  
  2621. <primitive 112 pTempVar 13  " removeResource: " \
  2622.   #( #[ 16r54 16r30 16r21 16rFA 16r03 16rD1 16rF2 16rF5] \
  2623.     #( 59  )) >
  2624.  
  2625. <primitive 112 pTempVar 14  " addResource: " \
  2626.   #( #[ 16r54 16r30 16r21 16rFA 16r03 16rD1 16rF2 16rF5] \
  2627.     #( 58  )) >
  2628.  
  2629. <primitive 112 pTempVar 15  " abortIO: " \
  2630.   #( #[ 16r54 16r30 16r21 16rFA 16r03 16rD1 16rF2 16rF5] \
  2631.     #( 57  )) >
  2632.  
  2633. <primitive 112 pTempVar 16  " waitIO: " \
  2634.   #( #[ 16r54 16r30 16r21 16rFA 16r03 16rD1 16rF3 16rF5] \
  2635.     #( 56  )) >
  2636.  
  2637. <primitive 112 pTempVar 17  " checkIO: " \
  2638.   #( #[ 16r54 16r30 16r21 16rFA 16r03 16rD1 16rF3 16rF5] \
  2639.     #( 55  )) >
  2640.  
  2641. <primitive 112 pTempVar 18  " sendIO: " \
  2642.   #( #[ 16r54 16r30 16r21 16rFA 16r03 16rD1 16rF2 16rF5] \
  2643.     #( 54  )) >
  2644.  
  2645. <primitive 112 pTempVar 19  " doIO: " \
  2646.   #( #[ 16r54 16r30 16r21 16rFA 16r03 16rD1 16rF3 16rF5] \
  2647.     #( 53  )) >
  2648.  
  2649. <primitive 112 pTempVar 20  " removeDevice: " \
  2650.   #( #[ 16r54 16r30 16r21 16rFA 16r03 16rD1 16rF2 16rF5] \
  2651.     #( 52  )) >
  2652.  
  2653. <primitive 112 pTempVar 21  " addDevice: " \
  2654.   #( #[ 16r54 16r30 16r21 16rFA 16r03 16rD1 16rF2 16rF5] \
  2655.     #( 51  )) >
  2656.  
  2657. <primitive 112 pTempVar 22  " deleteIORequest: " \
  2658.   #( #[ 16r54 16r30 16r21 16rFA 16r03 16rD1 16rF2 16rF5] \
  2659.     #( 50  )) >
  2660.  
  2661. <primitive 112 pTempVar 23  " createIORequest:size: " \
  2662.   #( #[ 16r54 16r30 16r21 16r22 16rFA 16r04 16rD1 16rF3 16rF5] \
  2663.     #( 49  )) >
  2664.  
  2665. <primitive 112 pTempVar 24  " callDebug: " \
  2666.   #( #[ 16r54 16r30 16r21 16rFA 16r03 16rD1 16rF2 16rF5] \
  2667.     #( 32  )) >
  2668.  
  2669. <primitive 112 pTempVar 25  " alertDisplay: " \
  2670.   #( #[ 16r54 16r30 16r21 16rFA 16r03 16rD1 16rF2 16rF5] \
  2671.     #( 31  )) >
  2672.  
  2673. <primitive 112 pTempVar 26  " initResident:segments: " \
  2674.   #( #[ 16r54 16r30 16r21 16r22 16rFA 16r04 16rD1 16rF3 16rF5] \
  2675.     #( 30  )) >
  2676.  
  2677. <primitive 112 pTempVar 27  " findResidentNamed: " \
  2678.   #( #[ 16r54 16r05 16r1D 16r21 16rFA 16r03 16rD1 16rF3 16rF5] \
  2679.     #(  )) >
  2680.  
  2681. <primitive 112 pTempVar 28  " makeFunctionsIn:with:displacement: " \
  2682.   #( #[ 16r54 16r05 16r1C 16r21 16r22 16r23 16rFA 16r05 16rD1 16rF2 16rF5 \
  2683.        ] \
  2684.     #(  )) >
  2685.  
  2686. <primitive 112 pTempVar 29  " initStruct:with:size: " \
  2687.   #( #[ 16r54 16r05 16r1A 16r21 16r22 16r23 16rFA 16r05 16rD1 16rF2 16rF5 \
  2688.        ] \
  2689.     #(  )) >
  2690.  
  2691. <primitive 112 pTempVar 30  " initCode:version: " \
  2692.   #( #[ 16r54 16r05 16r19 16r21 16r22 16rFA 16r04 16rD1 16rF2 16rF5] \
  2693.     #(  )) >
  2694.  
  2695. <primitive 98 #Executive \
  2696.   <primitive 97 #Executive #Object #AmigaTalk:System/Exec.st \
  2697.    #(  ) \
  2698.    #( #removeMemHandler: #addMemHandler:  \
  2699.        #rawDoFormat:to:renderFunction:data: #stackSwap: #coldReboot #cacheControl:with:  \
  2700.        #cacheClearE:length:caches: #cacheClearU #addMemList:attrs:priority:base:named: #sumKickData  \
  2701.        #getConditionCodes #openResource: #removeResource: #addResource: #abortIO: #waitIO:  \
  2702.        #checkIO: #sendIO: #doIO: #removeDevice: #addDevice: #deleteIORequest:  \
  2703.        #createIORequest:size: #callDebug: #alertDisplay: #initResident:segments: #findResidentNamed:  \
  2704.        #makeFunctionsIn:with:displacement: #initStruct:with:size: #initCode:version:  ) \
  2705.   pTempVar 6 8 > #ordinary >
  2706.  
  2707. pTempVar <- <primitive 110 14 >
  2708. <primitive 112 pTempVar 1  " avlKeyCompare:with: " \
  2709.   #( #[ 16r54 16r05 16r66 16r21 16r22 16rFA 16r04 16rD1 16rF3 16rF5] \
  2710.     #(  )) >
  2711.  
  2712. <primitive 112 pTempVar 2  " avlNodeCompare:with: " \
  2713.   #( #[ 16r54 16r05 16r65 16r21 16r22 16rFA 16r04 16rD1 16rF3 16rF5] \
  2714.     #(  )) >
  2715.  
  2716. <primitive 112 pTempVar 3  " getDefaultKeyCompareFunction " \
  2717.   #( #[ 16r54 16r05 16r68 16rFA 16r02 16rD1 16rF1 16r61 16rF3 16rF5] \
  2718.     #(  )) >
  2719.  
  2720. <primitive 112 pTempVar 4  " getDefaultCompareFunction " \
  2721.   #( #[ 16r54 16r05 16r67 16rFA 16r02 16rD1 16rF1 16r60 16rF3 16rF5] \
  2722.     #(  )) >
  2723.  
  2724. <primitive 112 pTempVar 5  " findLastAVLNode: " \
  2725.   #( #[ 16r54 16r05 16r64 16r21 16rFA 16r03 16rD1 16rF3 16rF5] \
  2726.     #(  )) >
  2727.  
  2728. <primitive 112 pTempVar 6  " findFirstAVLNode: " \
  2729.   #( #[ 16r54 16r05 16r63 16r21 16rFA 16r03 16rD1 16rF3 16rF5] \
  2730.     #(  )) >
  2731.  
  2732. <primitive 112 pTempVar 7  " findNextAVLNode:in:function: " \
  2733.   #( #[ 16r54 16r05 16r62 16r22 16r21 16r23 16rFA 16r05 16rD1 16rF3 16rF5 \
  2734.        ] \
  2735.     #(  )) >
  2736.  
  2737. <primitive 112 pTempVar 8  " findNextAVLNode: " \
  2738.   #( #[ 16r54 16r05 16r61 16r21 16rFA 16r03 16rD1 16rF3 16rF5] \
  2739.     #(  )) >
  2740.  
  2741. <primitive 112 pTempVar 9  " findPrevAVLNode:in:function: " \
  2742.   #( #[ 16r54 16r05 16r60 16r22 16r21 16r23 16rFA 16r05 16rD1 16rF3 16rF5 \
  2743.        ] \
  2744.     #(  )) >
  2745.  
  2746. <primitive 112 pTempVar 10  " findPrevAVLNode: " \
  2747.   #( #[ 16r54 16r05 16r5F 16r21 16rFA 16r03 16rD1 16rF3 16rF5] \
  2748.     #(  )) >
  2749.  
  2750. <primitive 112 pTempVar 11  " findAVLNode:in:function: " \
  2751.   #( #[ 16r54 16r05 16r5E 16r22 16r21 16r23 16rFA 16r05 16rD1 16rF3 16rF5 \
  2752.        ] \
  2753.     #(  )) >
  2754.  
  2755. <primitive 112 pTempVar 12  " removeAVLNode:from:function: " \
  2756.   #( #[ 16r54 16r05 16r5D 16r22 16r21 16r23 16rFA 16r05 16rD1 16rF3 16rF5 \
  2757.        ] \
  2758.     #(  )) >
  2759.  
  2760. <primitive 112 pTempVar 13  " removeAVLNode:from: " \
  2761.   #( #[ 16r54 16r05 16r5C 16r22 16r21 16rFA 16r04 16rD1 16rF3 16rF5] \
  2762.     #(  )) >
  2763.  
  2764. <primitive 112 pTempVar 14  " addAVLNode:to:function: " \
  2765.   #( #[ 16r54 16r05 16r5B 16r22 16r21 16r23 16rFA 16r05 16rD1 16rF3 16rF5 \
  2766.        ] \
  2767.     #(  )) >
  2768.  
  2769. <primitive 98 #AVLTree \
  2770.   <primitive 97 #AVLTree #Object #AmigaTalk:System/Exec.st \
  2771.    #(  #compareFuncObj #compareKeyFuncObj ) \
  2772.    #( #avlKeyCompare:with: #avlNodeCompare:with:  \
  2773.        #getDefaultKeyCompareFunction #getDefaultCompareFunction #findLastAVLNode: #findFirstAVLNode:  \
  2774.        #findNextAVLNode:in:function: #findNextAVLNode: #findPrevAVLNode:in:function: #findPrevAVLNode:  \
  2775.        #findAVLNode:in:function: #removeAVLNode:from:function: #removeAVLNode:from:  \
  2776.        #addAVLNode:to:function:  ) \
  2777.   pTempVar 4 6 > #ordinary >
  2778.  
  2779. pTempVar <- <primitive 110 24 >
  2780. <primitive 112 pTempVar 1  " audioKey " \
  2781.   #( #[ 16r05 16r16 16r10 16rFA 16r02 16rDC 16rF3 16rF5] \
  2782.     #(  )) >
  2783.  
  2784. <primitive 112 pTempVar 2  " dispose " \
  2785.   #( #[ 16r50 16r10 16r11 16rFA 16r03 16rDC 16rF2 16r20 16r80 16r00 16rF2 \
  2786.         16r55 16r10 16rFA 16r02 16rDC 16rF2 16r55 16r50 16r10 16rFA \
  2787.         16r03 16rFA 16rF2 16r5D 16rF3 16rF5] \
  2788.     #( #disposeData  )) >
  2789.  
  2790. <primitive 112 pTempVar 3  " disposeData " \
  2791.   #( #[ 16r52 16r12 16rFA 16r02 16rDC 16rF2 16r55 16r50 16r12 16rFA 16r03 \
  2792.         16rFA 16rF2 16r5D 16rF3 16rF5] \
  2793.     #(  )) >
  2794.  
  2795. <primitive 112 pTempVar 4  " freeChannel " \
  2796.   #( #[ 16r05 16r14 16r10 16r11 16r13 16rFA 16r04 16rDC 16rF2 16rF5] \
  2797.     #(  )) >
  2798.  
  2799. <primitive 112 pTempVar 5  " write:size: " \
  2800.   #( #[ 16r05 16r13 16r10 16r21 16r22 16rFA 16r04 16rDC 16rF3 16rF5] \
  2801.     #(  )) >
  2802.  
  2803. <primitive 112 pTempVar 6  " read:size: " \
  2804.   #( #[ 16r05 16r12 16r10 16r21 16r22 16rFA 16r04 16rDC 16rF3 16rF5] \
  2805.     #(  )) >
  2806.  
  2807. <primitive 112 pTempVar 7  " lock " \
  2808.   #( #[ 16r57 16r10 16rFA 16r02 16rDC 16rF3 16rF5] \
  2809.     #(  )) >
  2810.  
  2811. <primitive 112 pTempVar 8  " finish " \
  2812.   #( #[ 16r58 16r10 16rFA 16r02 16rDC 16rF3 16rF5] \
  2813.     #(  )) >
  2814.  
  2815. <primitive 112 pTempVar 9  " update " \
  2816.   #( #[ 16r05 16r19 16r10 16rFA 16r02 16rDC 16rF3 16rF5] \
  2817.     #(  )) >
  2818.  
  2819. <primitive 112 pTempVar 10  " clear " \
  2820.   #( #[ 16r05 16r18 16r10 16rFA 16r02 16rDC 16rF3 16rF5] \
  2821.     #(  )) >
  2822.  
  2823. <primitive 112 pTempVar 11  " flush " \
  2824.   #( #[ 16r59 16r10 16rFA 16r02 16rDC 16rF3 16rF5] \
  2825.     #(  )) >
  2826.  
  2827. <primitive 112 pTempVar 12  " changePriority: " \
  2828.   #( #[ 16r56 16r10 16r21 16rFA 16r03 16rDC 16rF3 16rF5] \
  2829.     #(  )) >
  2830.  
  2831. <primitive 112 pTempVar 13  " reset " \
  2832.   #( #[ 16r30 16r10 16rFA 16r02 16rDC 16rF3 16rF5] \
  2833.     #( 10  )) >
  2834.  
  2835. <primitive 112 pTempVar 14  " stop " \
  2836.   #( #[ 16r30 16r10 16rFA 16r02 16rDC 16rF3 16rF5] \
  2837.     #( 11  )) >
  2838.  
  2839. <primitive 112 pTempVar 15  " start " \
  2840.   #( #[ 16r30 16r10 16rFA 16r02 16rDC 16rF3 16rF5] \
  2841.     #( 12  )) >
  2842.  
  2843. <primitive 112 pTempVar 16  " playAt:for: " \
  2844.   #( #[ 16r30 16r10 16r21 16r22 16r13 16rFA 16r05 16rDC 16rF3 16rF5] \
  2845.     #( 15  )) >
  2846.  
  2847. <primitive 112 pTempVar 17  " setData: " \
  2848.   #( #[ 16r05 16r1A 16r10 16r21 16rFA 16r03 16rDC 16r62 16rF5] \
  2849.     #(  )) >
  2850.  
  2851. <primitive 112 pTempVar 18  " read " \
  2852.   #( #[ 16r05 16r11 16r10 16r13 16rFA 16r03 16rDC 16rF3 16rF5] \
  2853.     #(  )) >
  2854.  
  2855. <primitive 112 pTempVar 19  " waitCycle " \
  2856.   #( #[ 16r05 16r10 16r10 16r13 16rFA 16r03 16rDC 16rF3 16rF5] \
  2857.     #(  )) >
  2858.  
  2859. <primitive 112 pTempVar 20  " period: " \
  2860.   #( #[ 16r30 16r10 16r21 16rFA 16r03 16rDC 16rF3 16rF5] \
  2861.     #( 13  )) >
  2862.  
  2863. <primitive 112 pTempVar 21  " volume: " \
  2864.   #( #[ 16r30 16r10 16r21 16rFA 16r03 16rDC 16rF3 16rF5] \
  2865.     #( 14  )) >
  2866.  
  2867. <primitive 112 pTempVar 22  " myChannel " \
  2868.   #( #[ 16r05 16r1B 16r10 16rFA 16r02 16rDC 16rF3 16rF5] \
  2869.     #(  )) >
  2870.  
  2871. <primitive 112 pTempVar 23  " openChannel:priority: " \
  2872.   #( #[ 16r05 16r15 16r10 16r22 16r21 16rFA 16r04 16rDC 16r73 16r20 16r80 \
  2873.         16r00 16r63 16r23 16rF3 16rF5] \
  2874.     #( #myChannel  )) >
  2875.  
  2876. <primitive 112 pTempVar 24  " initialize:channels:flags:priority: " \
  2877.   #( #[ 16r51 16rFA 16r01 16rDC 16r60 16r53 16r10 16r21 16r23 16r24 16r22 \
  2878.         16rFA 16r06 16rDC 16r61 16r20 16r22 16r24 16r82 16r00 16rF6 \
  2879.         16r03 16r20 16r31 16rBD 16rF2 16rF5] \
  2880.     #( #openChannel:priority: 'Could NOT open Audio channel(s)!'  )) >
  2881.  
  2882. <primitive 98 #Audio \
  2883.   <primitive 97 #Audio #Device #AmigaTalk:System/Audio.st \
  2884.    #(  #private1 #private2 #private3 #aChannel ) \
  2885.    #( #audioKey #dispose #disposeData #freeChannel #write:size: #read:size:  \
  2886.        #lock #finish #update #clear #flush #changePriority: #reset #stop #start  \
  2887.        #playAt:for: #setData: #read #waitCycle #period: #volume: #myChannel  \
  2888.        #openChannel:priority: #initialize:channels:flags:priority:  ) \
  2889.   pTempVar 5 7 > #ordinary >
  2890.  
  2891. pTempVar <- <primitive 110 23 >
  2892. <primitive 112 pTempVar 1  " repeatKey " \
  2893.   #( #[ 16r30 16rF3 16rF5] \
  2894.     #( 16r200  )) >
  2895.  
  2896. <primitive 112 pTempVar 2  " numericPad " \
  2897.   #( #[ 16r30 16rF3 16rF5] \
  2898.     #( 16r100  )) >
  2899.  
  2900. <primitive 112 pTempVar 3  " middleMouseButton " \
  2901.   #( #[ 16r30 16rF3 16rF5] \
  2902.     #( 16r1000  )) >
  2903.  
  2904. <primitive 112 pTempVar 4  " rightMouseButton " \
  2905.   #( #[ 16r30 16rF3 16rF5] \
  2906.     #( 16r2000  )) >
  2907.  
  2908. <primitive 112 pTempVar 5  " leftMouseButton " \
  2909.   #( #[ 16r30 16rF3 16rF5] \
  2910.     #( 16r4000  )) >
  2911.  
  2912. <primitive 112 pTempVar 6  " rightAmiga " \
  2913.   #( #[ 16r30 16rF3 16rF5] \
  2914.     #( 16r80  )) >
  2915.  
  2916. <primitive 112 pTempVar 7  " leftAmiga " \
  2917.   #( #[ 16r30 16rF3 16rF5] \
  2918.     #( 16r40  )) >
  2919.  
  2920. <primitive 112 pTempVar 8  " rightAlt " \
  2921.   #( #[ 16r30 16rF3 16rF5] \
  2922.     #( 16r20  )) >
  2923.  
  2924. <primitive 112 pTempVar 9  " leftAlt " \
  2925.   #( #[ 16r30 16rF3 16rF5] \
  2926.     #( 16r10  )) >
  2927.  
  2928. <primitive 112 pTempVar 10  " control " \
  2929.   #( #[ 16r58 16rF3 16rF5] \
  2930.     #(  )) >
  2931.  
  2932. <primitive 112 pTempVar 11  " capsLock " \
  2933.   #( #[ 16r54 16rF3 16rF5] \
  2934.     #(  )) >
  2935.  
  2936. <primitive 112 pTempVar 12  " rightShift " \
  2937.   #( #[ 16r52 16rF3 16rF5] \
  2938.     #(  )) >
  2939.  
  2940. <primitive 112 pTempVar 13  " leftShift " \
  2941.   #( #[ 16r51 16rF3 16rF5] \
  2942.     #(  )) >
  2943.  
  2944. <primitive 112 pTempVar 14  " keyAlternated " \
  2945.   #( #[ 16r11 16r20 16r80 16r00 16r20 16r80 16r01 16rC0 16rFA 16r02 16r17 \
  2946.         16r71 16r21 16r50 16rCA 16rF3 16rF5] \
  2947.     #( #leftAlt #rightAlt  )) >
  2948.  
  2949. <primitive 112 pTempVar 15  " keyControlled " \
  2950.   #( #[ 16r11 16r20 16r80 16r00 16rFA 16r02 16r17 16r71 16r21 16r50 16rCA \
  2951.         16rF3 16rF5] \
  2952.     #( #control  )) >
  2953.  
  2954. <primitive 112 pTempVar 16  " keyShifted " \
  2955.   #( #[ 16r11 16r20 16r80 16r00 16r20 16r80 16r01 16rC0 16r20 16r80 16r02 \
  2956.         16rC0 16rFA 16r02 16r17 16r71 16r21 16r50 16rCA 16rF3 16rF5 \
  2957.        ] \
  2958.     #( #leftShift #rightShift #capsLock  )) >
  2959.  
  2960. <primitive 112 pTempVar 17  " keyQualifiers " \
  2961.   #( #[ 16r11 16rF3 16rF5] \
  2962.     #(  )) >
  2963.  
  2964. <primitive 112 pTempVar 18  " keyCode " \
  2965.   #( #[ 16r10 16rF3 16rF5] \
  2966.     #(  )) >
  2967.  
  2968. <primitive 112 pTempVar 19  " getVanillaKey " \
  2969.   #( #[ 16r51 16r52 16r20 16rFA 16r03 16rDE 16rF1 16r60 16rF3 16rF5] \
  2970.     #(  )) >
  2971.  
  2972. <primitive 112 pTempVar 20  " translateKey: " \
  2973.   #( #[ 16r20 16r80 16r00 16rF7 16r0A 16r51 16r51 16r21 16r5B 16rFA 16r04 \
  2974.         16rDE 16rF3 16rF8 16r09 16rF2 16r51 16r51 16r21 16r5C 16rFA \
  2975.         16r04 16rDE 16rF3 16rF2 16rF5] \
  2976.     #( #keyShifted  )) >
  2977.  
  2978. <primitive 112 pTempVar 21  " getRawKey " \
  2979.   #( #[ 16r51 16r50 16r20 16rFA 16r03 16rDE 16rF1 16r60 16rF3 16rF5] \
  2980.     #(  )) >
  2981.  
  2982. <primitive 112 pTempVar 22  " registerTo: " \
  2983.   #( #[ 16r21 16r62 16rF5] \
  2984.     #(  )) >
  2985.  
  2986. <primitive 112 pTempVar 23  " initialize " \
  2987.   #( #[ 16r50 16r60 16r50 16r61 16rF5] \
  2988.     #(  )) >
  2989.  
  2990. <primitive 98 #Key \
  2991.   <primitive 97 #Key #Device #AmigaTalk:System/Keyboard.st \
  2992.    #(  #keyCode #keyQualifier #aWindow ) \
  2993.    #( #repeatKey #numericPad #middleMouseButton #rightMouseButton  \
  2994.        #leftMouseButton #rightAmiga #leftAmiga #rightAlt #leftAlt #control #capsLock  \
  2995.        #rightShift #leftShift #keyAlternated #keyControlled #keyShifted #keyQualifiers  \
  2996.        #keyCode #getVanillaKey #translateKey: #getRawKey #registerTo: #initialize  ) \
  2997.   pTempVar 2 7 > #ordinary >
  2998.  
  2999. pTempVar <- <primitive 110 61 >
  3000. <primitive 112 pTempVar 1  " csi " \
  3001.   #( #[ 16r30 16rFA 16r01 16r60 16rF3 16rF5] \
  3002.     #( 16r9B  )) >
  3003.  
  3004. <primitive 112 pTempVar 2  " putString: " \
  3005.   #( #[ 16r50 16r55 16r10 16r21 16rFA 16r04 16rDE 16rF2 16r20 16r80 16r00 \
  3006.         16rF2 16rF5] \
  3007.     #( #crlf  )) >
  3008.  
  3009. <primitive 112 pTempVar 3  " putStringNoReturn: " \
  3010.   #( #[ 16r50 16r55 16r10 16r21 16rFA 16r04 16rDE 16rF2 16rF5] \
  3011.     #(  )) >
  3012.  
  3013. <primitive 112 pTempVar 4  " putChar: " \
  3014.   #( #[ 16r50 16r54 16r10 16r21 16rFA 16r04 16rDE 16rF2 16rF5] \
  3015.     #(  )) >
  3016.  
  3017. <primitive 112 pTempVar 5  " getString " \
  3018.   #( #[ 16r50 16r53 16r10 16rFA 16r03 16rDE 16rF3 16rF5] \
  3019.     #(  )) >
  3020.  
  3021. <primitive 112 pTempVar 6  " getChar " \
  3022.   #( #[ 16r50 16r52 16r10 16rFA 16r03 16rDE 16rF3 16rF5] \
  3023.     #(  )) >
  3024.  
  3025. <primitive 112 pTempVar 7  " clearToBottom " \
  3026.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3027.        ] \
  3028.     #( #esc '0J' #putString:  )) >
  3029.  
  3030. <primitive 112 pTempVar 8  " clear " \
  3031.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3032.        ] \
  3033.     #( #esc '2J' #putString:  )) >
  3034.  
  3035. <primitive 112 pTempVar 9  " reset " \
  3036.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3037.        ] \
  3038.     #( #esc 'c' #putString:  )) >
  3039.  
  3040. <primitive 112 pTempVar 10  " esc " \
  3041.   #( #[ 16r30 16rFA 16r01 16r60 16rF3 16rF5] \
  3042.     #( 16r1B  )) >
  3043.  
  3044. <primitive 112 pTempVar 11  " reset: " \
  3045.   #( #[ 16r20 16r80 16r00 16rF2 16rF5] \
  3046.     #( #reset  )) >
  3047.  
  3048. <primitive 112 pTempVar 12  " forwardTabs: " \
  3049.   #( #[ 16r20 16r20 16r80 16r00 16r21 16r0A 16r11 16r0B 16r12 16r31 16r0B \
  3050.         16r12 16r81 16r02 16rF2 16rF5] \
  3051.     #( #csi 'I' #putString:  )) >
  3052.  
  3053. <primitive 112 pTempVar 13  " tab " \
  3054.   #( #[ 16r20 16r59 16r80 16r00 16r81 16r01 16rF2 16rF5] \
  3055.     #( #asCharacter #putChar:  )) >
  3056.  
  3057. <primitive 112 pTempVar 14  " backTab " \
  3058.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3059.        ] \
  3060.     #( #csi '1Z' #putString:  )) >
  3061.  
  3062. <primitive 112 pTempVar 15  " setTab " \
  3063.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3064.        ] \
  3065.     #( #csi '0W' #putString:  )) >
  3066.  
  3067. <primitive 112 pTempVar 16  " clearTab " \
  3068.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3069.        ] \
  3070.     #( #csi '2W' #putString:  )) >
  3071.  
  3072. <primitive 112 pTempVar 17  " clearTabs " \
  3073.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3074.        ] \
  3075.     #( #csi '5W' #putString:  )) >
  3076.  
  3077. <primitive 112 pTempVar 18  " setTopOffset: " \
  3078.   #( #[ 16r20 16r20 16r80 16r00 16r21 16r0A 16r11 16r0B 16r12 16r31 16r0B \
  3079.         16r12 16r81 16r02 16rF2 16rF5] \
  3080.     #( #csi 'y' #putString:  )) >
  3081.  
  3082. <primitive 112 pTempVar 19  " setLeftOffset: " \
  3083.   #( #[ 16r20 16r20 16r80 16r00 16r21 16r0A 16r11 16r0B 16r12 16r31 16r0B \
  3084.         16r12 16r81 16r02 16rF2 16rF5] \
  3085.     #( #csi 'x' #putString:  )) >
  3086.  
  3087. <primitive 112 pTempVar 20  " setLineLength: " \
  3088.   #( #[ 16r20 16r20 16r80 16r00 16r21 16r0A 16r11 16r0B 16r12 16r31 16r0B \
  3089.         16r12 16r81 16r02 16rF2 16rF5] \
  3090.     #( #csi 'u' #putString:  )) >
  3091.  
  3092. <primitive 112 pTempVar 21  " setPageLength: " \
  3093.   #( #[ 16r20 16r20 16r80 16r00 16r21 16r0A 16r11 16r0B 16r12 16r31 16r0B \
  3094.         16r12 16r81 16r02 16rF2 16rF5] \
  3095.     #( #csi 't' #putString:  )) >
  3096.  
  3097. <primitive 112 pTempVar 22  " autoWrapOn " \
  3098.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3099.        ] \
  3100.     #( #csi '?7h' #putString:  )) >
  3101.  
  3102. <primitive 112 pTempVar 23  " autoWrapOff " \
  3103.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3104.        ] \
  3105.     #( #csi '?7l' #putString:  )) >
  3106.  
  3107. <primitive 112 pTempVar 24  " disableScroll " \
  3108.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3109.        ] \
  3110.     #( #csi '>1l' #putString:  )) >
  3111.  
  3112. <primitive 112 pTempVar 25  " enableScroll " \
  3113.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3114.        ] \
  3115.     #( #csi '>1h' #putString:  )) >
  3116.  
  3117. <primitive 112 pTempVar 26  " backgroundColor: " \
  3118.   #( #[ 16r20 16r20 16r80 16r00 16r21 16r31 16rC0 16r0A 16r11 16r0B 16r12 \
  3119.         16r32 16r0B 16r12 16r21 16r33 16rC0 16r0A 16r11 16r0B 16r12 \
  3120.         16r34 16r0B 16r12 16r81 16r05 16rF2 16rF5] \
  3121.     #( #csi 40 ';>' 30 'm' #putString:  )) >
  3122.  
  3123. <primitive 112 pTempVar 27  " textColor: " \
  3124.   #( #[ 16r20 16r20 16r80 16r00 16r21 16r31 16rC0 16r0A 16r11 16r0B 16r12 \
  3125.         16r32 16r0B 16r12 16r81 16r03 16rF2 16rF5] \
  3126.     #( #csi 30 'm' #putString:  )) >
  3127.  
  3128. <primitive 112 pTempVar 28  " cursorVisible " \
  3129.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3130.        ] \
  3131.     #( #csi ' p' #putString:  )) >
  3132.  
  3133. <primitive 112 pTempVar 29  " cursorInvisible " \
  3134.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3135.        ] \
  3136.     #( #csi '0 p' #putString:  )) >
  3137.  
  3138. <primitive 112 pTempVar 30  " visibleText " \
  3139.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3140.        ] \
  3141.     #( #csi '28m' #putString:  )) >
  3142.  
  3143. <primitive 112 pTempVar 31  " invisibleText " \
  3144.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3145.        ] \
  3146.     #( #csi '8m' #putString:  )) >
  3147.  
  3148. <primitive 112 pTempVar 32  " invertedCharsOff " \
  3149.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3150.        ] \
  3151.     #( #csi '27m' #putString:  )) >
  3152.  
  3153. <primitive 112 pTempVar 33  " invertedChars " \
  3154.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3155.        ] \
  3156.     #( #csi '7m' #putString:  )) >
  3157.  
  3158. <primitive 112 pTempVar 34  " underlineCharsOff " \
  3159.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3160.        ] \
  3161.     #( #csi '24m' #putString:  )) >
  3162.  
  3163. <primitive 112 pTempVar 35  " underlineChars " \
  3164.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3165.        ] \
  3166.     #( #csi '4m' #putString:  )) >
  3167.  
  3168. <primitive 112 pTempVar 36  " italicCharsOff " \
  3169.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3170.        ] \
  3171.     #( #csi '23m' #putString:  )) >
  3172.  
  3173. <primitive 112 pTempVar 37  " italicChars " \
  3174.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3175.        ] \
  3176.     #( #csi '3m' #putString:  )) >
  3177.  
  3178. <primitive 112 pTempVar 38  " boldCharsOff " \
  3179.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3180.        ] \
  3181.     #( #csi '22m' #putString:  )) >
  3182.  
  3183. <primitive 112 pTempVar 39  " boldChars " \
  3184.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3185.        ] \
  3186.     #( #csi '1m' #putString:  )) >
  3187.  
  3188. <primitive 112 pTempVar 40  " normalChars " \
  3189.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3190.        ] \
  3191.     #( #csi '0m' #putString:  )) >
  3192.  
  3193. <primitive 112 pTempVar 41  " deleteCharacters: " \
  3194.   #( #[ 16r20 16r20 16r80 16r00 16r21 16r0A 16r11 16r0B 16r12 16r31 16r0B \
  3195.         16r12 16r81 16r02 16rF2 16rF5] \
  3196.     #( #csi 'P' #putString:  )) >
  3197.  
  3198. <primitive 112 pTempVar 42  " deleteCurrentChar " \
  3199.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3200.        ] \
  3201.     #( #csi '0P' #putString:  )) >
  3202.  
  3203. <primitive 112 pTempVar 43  " deleteCurrentLine " \
  3204.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3205.        ] \
  3206.     #( #csi 'M' #putString:  )) >
  3207.  
  3208. <primitive 112 pTempVar 44  " insertSpaces: " \
  3209.   #( #[ 16r20 16r20 16r80 16r00 16r21 16r0A 16r11 16r0B 16r12 16r31 16r0B \
  3210.         16r12 16r81 16r02 16rF2 16rF5] \
  3211.     #( #csi '@' #putString:  )) >
  3212.  
  3213. <primitive 112 pTempVar 45  " insertLineBelowCurrent " \
  3214.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3215.        ] \
  3216.     #( #csi 'L' #putString:  )) >
  3217.  
  3218. <primitive 112 pTempVar 46  " moveCursorLeft: " \
  3219.   #( #[ 16r20 16r20 16r80 16r00 16r21 16r0A 16r11 16r0B 16r12 16r31 16r0B \
  3220.         16r12 16r81 16r02 16rF2 16rF5] \
  3221.     #( #csi 'D' #putString:  )) >
  3222.  
  3223. <primitive 112 pTempVar 47  " moveCursorRight: " \
  3224.   #( #[ 16r20 16r20 16r80 16r00 16r21 16r0A 16r11 16r0B 16r12 16r31 16r0B \
  3225.         16r12 16r81 16r02 16rF2 16rF5] \
  3226.     #( #csi 'C' #putString:  )) >
  3227.  
  3228. <primitive 112 pTempVar 48  " moveCursorDown: " \
  3229.   #( #[ 16r20 16r20 16r80 16r00 16r21 16r0A 16r11 16r0B 16r12 16r31 16r0B \
  3230.         16r12 16r81 16r02 16rF2 16rF5] \
  3231.     #( #csi 'B' #putString:  )) >
  3232.  
  3233. <primitive 112 pTempVar 49  " moveCursorUp: " \
  3234.   #( #[ 16r20 16r20 16r80 16r00 16r21 16r0A 16r11 16r0B 16r12 16r31 16r0B \
  3235.         16r12 16r81 16r02 16rF2 16rF5] \
  3236.     #( #csi 'A' #putString:  )) >
  3237.  
  3238. <primitive 112 pTempVar 50  " prevLineStart " \
  3239.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3240.        ] \
  3241.     #( #csi '1F' #putString:  )) >
  3242.  
  3243. <primitive 112 pTempVar 51  " nextLineStart " \
  3244.   #( #[ 16r20 16r30 16r80 16r01 16r81 16r02 16rF2 16rF5] \
  3245.     #( 16r85 #asCharacter #putChar:  )) >
  3246.  
  3247. <primitive 112 pTempVar 52  " moveCursorTo: " \
  3248.   #( #[ 16r21 16r0A 16r31 16r73 16r21 16r0A 16r32 16r74 16r20 16r80 16r00 \
  3249.         16r24 16r0A 16r11 16r0B 16r12 16r31 16r0B 16r12 16r23 16r0A \
  3250.         16r11 16r0B 16r12 16r32 16r0B 16r12 16r72 16r20 16r22 16r81 \
  3251.         16r03 16rF2 16rF5] \
  3252.     #( #csi ';' 'H' #putString:  )) >
  3253.  
  3254. <primitive 112 pTempVar 53  " cursorToHome " \
  3255.   #( #[ 16r20 16r20 16r80 16r00 16r31 16r0B 16r12 16r81 16r02 16rF2 16rF5 \
  3256.        ] \
  3257.     #( #csi 'H' #putString:  )) >
  3258.  
  3259. <primitive 112 pTempVar 54  " crlf " \
  3260.   #( #[ 16r20 16r80 16r00 16rF2 16r20 16r80 16r01 16rF2 16rF5] \
  3261.     #( #carriageReturn #lineFeed  )) >
  3262.  
  3263. <primitive 112 pTempVar 55  " bell " \
  3264.   #( #[ 16r20 16r57 16r80 16r00 16r81 16r01 16rF2 16rF5] \
  3265.     #( #asCharacter #putChar:  )) >
  3266.  
  3267. <primitive 112 pTempVar 56  " carriageReturn " \
  3268.   #( #[ 16r20 16r30 16r80 16r01 16r81 16r02 16rF2 16rF5] \
  3269.     #( 13 #asCharacter #putChar:  )) >
  3270.  
  3271. <primitive 112 pTempVar 57  " lineFeed " \
  3272.   #( #[ 16r20 16r30 16r80 16r01 16r81 16r02 16rF2 16rF5] \
  3273.     #( 10 #asCharacter #putChar:  )) >
  3274.  
  3275. <primitive 112 pTempVar 58  " formFeed " \
  3276.   #( #[ 16r20 16r30 16r80 16r01 16r81 16r02 16rF2 16rF5] \
  3277.     #( 12 #asCharacter #putChar:  )) >
  3278.  
  3279. <primitive 112 pTempVar 59  " backSpace " \
  3280.   #( #[ 16r20 16r58 16r80 16r00 16r81 16r01 16rF2 16rF5] \
  3281.     #( #asCharacter #putChar:  )) >
  3282.  
  3283. <primitive 112 pTempVar 60  " initialize:for: " \
  3284.   #( #[ 16r50 16r51 16r22 16r21 16rFA 16r04 16rDE 16r60 16r22 16r61 16r20 \
  3285.         16rF3 16rF5] \
  3286.     #(  )) >
  3287.  
  3288. <primitive 112 pTempVar 61  " dispose " \
  3289.   #( #[ 16r50 16r50 16r10 16rFA 16r03 16rDE 16rF2 16r55 16r50 16r10 16rFA \
  3290.         16r03 16rFA 16rF2 16r5D 16rF3 16rF5] \
  3291.     #(  )) >
  3292.  
  3293. <primitive 98 #Console \
  3294.   <primitive 97 #Console #Device #AmigaTalk:System/Console.st \
  3295.    #(  #private #myWindow ) \
  3296.    #( #csi #putString: #putStringNoReturn: #putChar: #getString #getChar  \
  3297.        #clearToBottom #clear #reset #esc #reset: #forwardTabs: #tab #backTab #setTab  \
  3298.        #clearTab #clearTabs #setTopOffset: #setLeftOffset: #setLineLength:  \
  3299.        #setPageLength: #autoWrapOn #autoWrapOff #disableScroll #enableScroll  \
  3300.        #backgroundColor: #textColor: #cursorVisible #cursorInvisible #visibleText  \
  3301.        #invisibleText #invertedCharsOff #invertedChars #underlineCharsOff #underlineChars  \
  3302.        #italicCharsOff #italicChars #boldCharsOff #boldChars #normalChars #deleteCharacters:  \
  3303.        #deleteCurrentChar #deleteCurrentLine #insertSpaces: #insertLineBelowCurrent  \
  3304.        #moveCursorLeft: #moveCursorRight: #moveCursorDown: #moveCursorUp: #prevLineStart  \
  3305.        #nextLineStart #moveCursorTo: #cursorToHome #crlf #bell #carriageReturn #lineFeed  \
  3306.        #formFeed #backSpace #initialize:for: #dispose  ) \
  3307.   pTempVar 5 6 > #ordinary >
  3308.  
  3309. pTempVar <- <primitive 110 25 >
  3310. <primitive 112 pTempVar 1  " translateSCSIErrorNumber: " \
  3311.   #( #[ 16r05 16r16 16r21 16rFA 16r02 16rE2 16rF3 16rF5] \
  3312.     #(  )) >
  3313.  
  3314. <primitive 112 pTempVar 2  " writeSCSICommand: " \
  3315.   #( #[ 16r05 16r15 16r10 16r11 16r21 16rFA 16r04 16rE2 16rF3 16rF5] \
  3316.     #(  )) >
  3317.  
  3318. <primitive 112 pTempVar 3  " readSCSICommand " \
  3319.   #( #[ 16r05 16r14 16r10 16r11 16rFA 16r03 16rE2 16rF3 16rF5] \
  3320.     #(  )) >
  3321.  
  3322. <primitive 112 pTempVar 4  " formatSCSIDevice:at: " \
  3323.   #( #[ 16r05 16r13 16r10 16r11 16r21 16r22 16rFA 16r05 16rE2 16rF3 16rF5 \
  3324.        ] \
  3325.     #(  )) >
  3326.  
  3327. <primitive 112 pTempVar 5  " setSCSISenseDataField: " \
  3328.   #( #[ 16r05 16r17 16r10 16r21 16rFA 16r03 16rE2 16rF3 16rF5] \
  3329.     #(  )) >
  3330.  
  3331. <primitive 112 pTempVar 6  " getSenseDataInto: " \
  3332.   #( #[ 16r05 16r12 16r10 16r21 16rFA 16r03 16rE2 16rF3 16rF5] \
  3333.     #(  )) >
  3334.  
  3335. <primitive 112 pTempVar 7  " setSCSIStatusField: " \
  3336.   #( #[ 16r05 16r11 16r10 16r21 16rFA 16r03 16rE2 16rF2 16rF5] \
  3337.     #(  )) >
  3338.  
  3339. <primitive 112 pTempVar 8  " setSCSIFlagsField: " \
  3340.   #( #[ 16r05 16r10 16r10 16r21 16rFA 16r03 16rE2 16rF2 16rF5] \
  3341.     #(  )) >
  3342.  
  3343. <primitive 112 pTempVar 9  " scsiStatus " \
  3344.   #( #[ 16r30 16r10 16rFA 16r02 16rE2 16rF3 16rF5] \
  3345.     #( 15  )) >
  3346.  
  3347. <primitive 112 pTempVar 10  " actualSense " \
  3348.   #( #[ 16r30 16r10 16rFA 16r02 16rE2 16rF3 16rF5] \
  3349.     #( 14  )) >
  3350.  
  3351. <primitive 112 pTempVar 11  " actualCommandUsed " \
  3352.   #( #[ 16r30 16r10 16rFA 16r02 16rE2 16rF3 16rF5] \
  3353.     #( 13  )) >
  3354.  
  3355. <primitive 112 pTempVar 12  " setSCSICommandField: " \
  3356.   #( #[ 16r30 16r10 16r21 16rFA 16r03 16rE2 16rF2 16rF5] \
  3357.     #( 12  )) >
  3358.  
  3359. <primitive 112 pTempVar 13  " actualDataUsedSize " \
  3360.   #( #[ 16r30 16r10 16rFA 16r02 16rE2 16rF3 16rF5] \
  3361.     #( 11  )) >
  3362.  
  3363. <primitive 112 pTempVar 14  " setSCSIDataField: " \
  3364.   #( #[ 16r30 16r10 16r21 16rFA 16r03 16rE2 16rF2 16rF5] \
  3365.     #( 10  )) >
  3366.  
  3367. <primitive 112 pTempVar 15  " sendSCSIDirectCommand " \
  3368.   #( #[ 16r59 16r10 16r11 16rFA 16r03 16rE2 16rF3 16rF5] \
  3369.     #(  )) >
  3370.  
  3371. <primitive 112 pTempVar 16  " seekTo: " \
  3372.   #( #[ 16r58 16r11 16r21 16rFA 16r03 16rE2 16rF3 16rF5] \
  3373.     #(  )) >
  3374.  
  3375. <primitive 112 pTempVar 17  " diskChanged " \
  3376.   #( #[ 16r57 16r11 16rFA 16r02 16rE2 16rF3 16rF5] \
  3377.     #(  )) >
  3378.  
  3379. <primitive 112 pTempVar 18  " protectionStatus " \
  3380.   #( #[ 16r56 16r11 16rFA 16r02 16rE2 16rF3 16rF5] \
  3381.     #(  )) >
  3382.  
  3383. <primitive 112 pTempVar 19  " start " \
  3384.   #( #[ 16r55 16r11 16rFA 16r02 16rE2 16rF2 16rF5] \
  3385.     #(  )) >
  3386.  
  3387. <primitive 112 pTempVar 20  " stop " \
  3388.   #( #[ 16r54 16r11 16rFA 16r02 16rE2 16rF2 16rF5] \
  3389.     #(  )) >
  3390.  
  3391. <primitive 112 pTempVar 21  " write: " \
  3392.   #( #[ 16r53 16r10 16r11 16r21 16rFA 16r04 16rE2 16rF3 16rF5] \
  3393.     #(  )) >
  3394.  
  3395. <primitive 112 pTempVar 22  " readInto: " \
  3396.   #( #[ 16r52 16r10 16r11 16r21 16rFA 16r04 16rE2 16rF3 16rF5] \
  3397.     #(  )) >
  3398.  
  3399. <primitive 112 pTempVar 23  " open:unit: " \
  3400.   #( #[ 16r51 16r20 16r21 16r22 16rFA 16r04 16rE2 16r73 16r23 16r5B 16rC9 \
  3401.         16rF7 16r03 16r22 16rF1 16r63 16rF2 16r23 16rF3 16rF5] \
  3402.     #(  )) >
  3403.  
  3404. <primitive 112 pTempVar 24  " setUnit:lun:id: " \
  3405.   #( #[ 16r21 16r05 16r64 16rC2 16r22 16r30 16rC2 16rC0 16r23 16rC0 16rF1 \
  3406.         16r63 16rF3 16rF5] \
  3407.     #( 10  )) >
  3408.  
  3409. <primitive 112 pTempVar 25  " close " \
  3410.   #( #[ 16r50 16r10 16r11 16r12 16rFA 16r04 16rE2 16rF2 16r55 16r50 16r10 \
  3411.         16rFA 16r03 16rFA 16rF2 16r55 16r50 16r11 16rFA 16r03 16rFA \
  3412.         16rF2 16r55 16r50 16r12 16rFA 16r03 16rFA 16rF2 16r5D 16r63 \
  3413.         16rF5] \
  3414.     #(  )) >
  3415.  
  3416. <primitive 98 #SCSIDevice \
  3417.   <primitive 97 #SCSIDevice #Device #AmigaTalk:System/SCSI.st \
  3418.    #(  #private1 #private2 #private3 #unitNumber ) \
  3419.    #( #translateSCSIErrorNumber: #writeSCSICommand: #readSCSICommand  \
  3420.        #formatSCSIDevice:at: #setSCSISenseDataField: #getSenseDataInto: #setSCSIStatusField:  \
  3421.        #setSCSIFlagsField: #scsiStatus #actualSense #actualCommandUsed #setSCSICommandField:  \
  3422.        #actualDataUsedSize #setSCSIDataField: #sendSCSIDirectCommand #seekTo: #diskChanged  \
  3423.        #protectionStatus #start #stop #write: #readInto: #open:unit: #setUnit:lun:id: #close  ) \
  3424.   pTempVar 4 6 > #ordinary >
  3425.  
  3426. pTempVar <- <primitive 110 38 >
  3427. <primitive 112 pTempVar 1  " open:unit: " \
  3428.   #( #[ 16r50 16r51 16r20 16r21 16r22 16rFA 16r05 16rDA 16r73 16r23 16r5B \
  3429.         16rC9 16rF7 16r03 16r22 16rF1 16r63 16rF2 16r23 16rF3 16rF5 \
  3430.        ] \
  3431.     #(  )) >
  3432.  
  3433. <primitive 112 pTempVar 2  " close " \
  3434.   #( #[ 16r50 16r50 16r20 16rFA 16r03 16rDA 16rF2 16r55 16r50 16r10 16rFA \
  3435.         16r03 16rFA 16rF2 16r55 16r50 16r11 16rFA 16r03 16rFA 16rF2 \
  3436.         16r55 16r50 16r12 16rFA 16r03 16rFA 16rF2 16r5D 16rF3 16rF5 \
  3437.        ] \
  3438.     #(  )) >
  3439.  
  3440. <primitive 112 pTempVar 3  " playLSN:startingAt: " \
  3441.   #( #[ 16r50 16r30 16r11 16r21 16r22 16rFA 16r05 16rDA 16rF3 16rF5] \
  3442.     #( 30  )) >
  3443.  
  3444. <primitive 112 pTempVar 4  " playMSF:startingAt: " \
  3445.   #( #[ 16r50 16r05 16r1D 16r11 16r21 16r22 16rFA 16r05 16rDA 16rF3 16rF5 \
  3446.        ] \
  3447.     #(  )) >
  3448.  
  3449. <primitive 112 pTempVar 5  " playTracks:startingAt: " \
  3450.   #( #[ 16r50 16r05 16r1C 16r11 16r21 16r22 16rFA 16r05 16rDA 16rF3 16rF5 \
  3451.        ] \
  3452.     #(  )) >
  3453.  
  3454. <primitive 112 pTempVar 6  " resumePlay " \
  3455.   #( #[ 16r50 16r59 16r11 16r5C 16rFA 16r04 16rDA 16rF3 16rF5] \
  3456.     #(  )) >
  3457.  
  3458. <primitive 112 pTempVar 7  " pausePlay " \
  3459.   #( #[ 16r50 16r59 16r11 16r5B 16rFA 16r04 16rDA 16rF3 16rF5] \
  3460.     #(  )) >
  3461.  
  3462. <primitive 112 pTempVar 8  " encloseDisk " \
  3463.   #( #[ 16r50 16r30 16r11 16r5C 16rFA 16r04 16rDA 16rF3 16rF5] \
  3464.     #( 13  )) >
  3465.  
  3466. <primitive 112 pTempVar 9  " eject " \
  3467.   #( #[ 16r50 16r30 16r11 16r5B 16rFA 16r04 16rDA 16rF3 16rF5] \
  3468.     #( 13  )) >
  3469.  
  3470. <primitive 112 pTempVar 10  " motorOff " \
  3471.   #( #[ 16r50 16r30 16r11 16r5C 16rFA 16r04 16rDA 16rF3 16rF5] \
  3472.     #( 12  )) >
  3473.  
  3474. <primitive 112 pTempVar 11  " writeProtected " \
  3475.   #( #[ 16r50 16r05 16r13 16r11 16rFA 16r03 16rDA 16rF3 16rF5] \
  3476.     #(  )) >
  3477.  
  3478. <primitive 112 pTempVar 12  " validDisk " \
  3479.   #( #[ 16r50 16r05 16r12 16r11 16rFA 16r03 16rDA 16rF3 16rF5] \
  3480.     #(  )) >
  3481.  
  3482. <primitive 112 pTempVar 13  " changeCount " \
  3483.   #( #[ 16r50 16r05 16r11 16r11 16rFA 16r03 16rDA 16rF3 16rF5] \
  3484.     #(  )) >
  3485.  
  3486. <primitive 112 pTempVar 14  " removeFrameInterrupt: " \
  3487.   #( #[ 16r50 16r30 16r11 16r21 16rFA 16r04 16rDA 16rF2 16rF5] \
  3488.     #( 38  )) >
  3489.  
  3490. <primitive 112 pTempVar 15  " addFrameInterrupt: " \
  3491.   #( #[ 16r50 16r30 16r10 16r11 16r21 16rFA 16r05 16rDA 16rF3 16rF5] \
  3492.     #( 37  )) >
  3493.  
  3494. <primitive 112 pTempVar 16  " removeChangeInterrupt: " \
  3495.   #( #[ 16r50 16r30 16r11 16r21 16rFA 16r04 16rDA 16rF2 16rF5] \
  3496.     #( 36  )) >
  3497.  
  3498. <primitive 112 pTempVar 17  " addChangeInterrupt: " \
  3499.   #( #[ 16r50 16r30 16r10 16r11 16r21 16rFA 16r05 16rDA 16rF3 16rF5] \
  3500.     #( 35  )) >
  3501.  
  3502. <primitive 112 pTempVar 18  " attenuateBy:for: " \
  3503.   #( #[ 16r50 16r30 16r11 16r22 16r21 16rFA 16r05 16rDA 16rF3 16rF5] \
  3504.     #( 34  )) >
  3505.  
  3506. <primitive 112 pTempVar 19  " qCodeLSN " \
  3507.   #( #[ 16r50 16r30 16r10 16r11 16rFA 16r04 16rDA 16rF3 16rF5] \
  3508.     #( 33  )) >
  3509.  
  3510. <primitive 112 pTempVar 20  " qCodeMSF " \
  3511.   #( #[ 16r50 16r30 16r10 16r11 16rFA 16r04 16rDA 16rF3 16rF5] \
  3512.     #( 32  )) >
  3513.  
  3514. <primitive 112 pTempVar 21  " search: " \
  3515.   #( #[ 16r50 16r30 16r11 16r21 16rFA 16r04 16rDA 16rF3 16rF5] \
  3516.     #( 31  )) >
  3517.  
  3518. <primitive 112 pTempVar 22  " readXL:startingAt: " \
  3519.   #( #[ 16r50 16r05 16r1B 16r10 16r11 16r21 16r22 16rFA 16r06 16rDA 16rF3 \
  3520.         16rF5] \
  3521.     #(  )) >
  3522.  
  3523. <primitive 112 pTempVar 23  " contentsLSN:startingAt: " \
  3524.   #( #[ 16r50 16r05 16r1A 16r10 16r11 16r21 16r22 16rFA 16r06 16rDA 16rF3 \
  3525.         16rF5] \
  3526.     #(  )) >
  3527.  
  3528. <primitive 112 pTempVar 24  " contentsMSF:startingAt: " \
  3529.   #( #[ 16r50 16r05 16r19 16r10 16r11 16r21 16r22 16rFA 16r06 16rDA 16rF3 \
  3530.         16rF5] \
  3531.     #(  )) >
  3532.  
  3533. <primitive 112 pTempVar 25  " configure: " \
  3534.   #( #[ 16r50 16r05 16r18 16r11 16r21 16rFA 16r04 16rDA 16rF3 16rF5] \
  3535.     #(  )) >
  3536.  
  3537. <primitive 112 pTempVar 26  " cdInfo " \
  3538.   #( #[ 16r50 16r05 16r17 16r10 16r11 16rFA 16r04 16rDA 16rF3 16rF5] \
  3539.     #(  )) >
  3540.  
  3541. <primitive 112 pTempVar 27  " seekTo: " \
  3542.   #( #[ 16r50 16r30 16r11 16r21 16rFA 16r04 16rDA 16rF2 16rF5] \
  3543.     #( 14  )) >
  3544.  
  3545. <primitive 112 pTempVar 28  " motorOn " \
  3546.   #( #[ 16r50 16r30 16r11 16r5B 16rFA 16r04 16rDA 16rF3 16rF5] \
  3547.     #( 12  )) >
  3548.  
  3549. <primitive 112 pTempVar 29  " getGeometry: " \
  3550.   #( #[ 16r50 16r05 16r16 16r11 16r21 16rFA 16r04 16rDA 16rF3 16rF5] \
  3551.     #(  )) >
  3552.  
  3553. <primitive 112 pTempVar 30  " readInto:start: " \
  3554.   #( #[ 16r50 16r54 16r11 16r21 16r22 16rFA 16r05 16rDA 16rF3 16rF5] \
  3555.     #(  )) >
  3556.  
  3557. <primitive 112 pTempVar 31  " translateCDErrorNumber: " \
  3558.   #( #[ 16r50 16r52 16r21 16rFA 16r03 16rDA 16rF3 16rF5] \
  3559.     #(  )) >
  3560.  
  3561. <primitive 112 pTempVar 32  " status " \
  3562.   #( #[ 16r50 16r30 16r10 16rFA 16r03 16rDA 16rF3 16rF5] \
  3563.     #( 47  )) >
  3564.  
  3565. <primitive 112 pTempVar 33  " audioPrecision " \
  3566.   #( #[ 16r50 16r30 16r10 16rFA 16r03 16rDA 16rF3 16rF5] \
  3567.     #( 46  )) >
  3568.  
  3569. <primitive 112 pTempVar 34  " maxSpeed " \
  3570.   #( #[ 16r50 16r30 16r10 16rFA 16r03 16rDA 16rF3 16rF5] \
  3571.     #( 45  )) >
  3572.  
  3573. <primitive 112 pTempVar 35  " sectorSize " \
  3574.   #( #[ 16r50 16r30 16r10 16rFA 16r03 16rDA 16rF3 16rF5] \
  3575.     #( 44  )) >
  3576.  
  3577. <primitive 112 pTempVar 36  " readXLSpeed " \
  3578.   #( #[ 16r50 16r30 16r10 16rFA 16r03 16rDA 16rF3 16rF5] \
  3579.     #( 43  )) >
  3580.  
  3581. <primitive 112 pTempVar 37  " readSpeed " \
  3582.   #( #[ 16r50 16r30 16r10 16rFA 16r03 16rDA 16rF3 16rF5] \
  3583.     #( 42  )) >
  3584.  
  3585. <primitive 112 pTempVar 38  " playSpeed " \
  3586.   #( #[ 16r50 16r30 16r10 16rFA 16r03 16rDA 16rF3 16rF5] \
  3587.     #( 41  )) >
  3588.  
  3589. <primitive 98 #CD \
  3590.   <primitive 97 #CD #Device #AmigaTalk:System/CDDevice.st \
  3591.    #(  #private1 #private2 #private3 #unitNumber ) \
  3592.    #( #open:unit: #close #playLSN:startingAt: #playMSF:startingAt:  \
  3593.        #playTracks:startingAt: #resumePlay #pausePlay #encloseDisk #eject #motorOff #writeProtected  \
  3594.        #validDisk #changeCount #removeFrameInterrupt: #addFrameInterrupt:  \
  3595.        #removeChangeInterrupt: #addChangeInterrupt: #attenuateBy:for: #qCodeLSN #qCodeMSF #search:  \
  3596.        #readXL:startingAt: #contentsLSN:startingAt: #contentsMSF:startingAt: #configure: #cdInfo  \
  3597.        #seekTo: #motorOn #getGeometry: #readInto:start: #translateCDErrorNumber:  \
  3598.        #status #audioPrecision #maxSpeed #sectorSize #readXLSpeed #readSpeed  \
  3599.        #playSpeed  ) \
  3600.   pTempVar 4 7 > #ordinary >
  3601.  
  3602. pTempVar <- <primitive 110 11 >
  3603. <primitive 112 pTempVar 1  " driveFlags " \
  3604.   #( #[ 16r05 16r23 16r52 16rB0 16r71 16r50 16r53 16r10 16r21 16r05 16r1D \
  3605.         16rFA 16r05 16rD1 16rF2 16r21 16r51 16rB1 16rF3 16rF5] \
  3606.     #(  )) >
  3607.  
  3608. <primitive 112 pTempVar 2  " driveType " \
  3609.   #( #[ 16r05 16r23 16r52 16rB0 16r71 16r50 16r53 16r10 16r21 16r05 16r1C \
  3610.         16rFA 16r05 16rD1 16rF2 16r21 16r51 16rB1 16rF3 16rF5] \
  3611.     #(  )) >
  3612.  
  3613. <primitive 112 pTempVar 3  " bufferMemoryType " \
  3614.   #( #[ 16r05 16r23 16r54 16rB0 16r71 16r50 16r53 16r10 16r21 16r05 16r18 \
  3615.         16rFA 16r05 16rD1 16rF2 16r21 16r51 16rB1 16r05 16r18 16rC4 \
  3616.         16r72 16r22 16r21 16r52 16rB1 16r05 16r10 16rC4 16rC0 16r72 \
  3617.         16r22 16r21 16r53 16rB1 16r58 16rC4 16rC0 16r72 16r22 16r21 \
  3618.         16r54 16rB1 16rC0 16r72 16r22 16rF3 16rF5] \
  3619.     #(  )) >
  3620.  
  3621. <primitive 112 pTempVar 4  " sectorsPerTrack " \
  3622.   #( #[ 16r05 16r23 16r54 16rB0 16r71 16r50 16r53 16r10 16r21 16r05 16r14 \
  3623.         16rFA 16r05 16rD1 16rF2 16r21 16r51 16rB1 16r05 16r18 16rC4 \
  3624.         16r72 16r22 16r21 16r52 16rB1 16r05 16r10 16rC4 16rC0 16r72 \
  3625.         16r22 16r21 16r53 16rB1 16r58 16rC4 16rC0 16r72 16r22 16r21 \
  3626.         16r54 16rB1 16rC0 16r72 16r22 16rF3 16rF5] \
  3627.     #(  )) >
  3628.  
  3629. <primitive 112 pTempVar 5  " numberSurfaces " \
  3630.   #( #[ 16r05 16r23 16r54 16rB0 16r71 16r50 16r53 16r10 16r21 16r05 16r10 \
  3631.         16rFA 16r05 16rD1 16rF2 16r21 16r51 16rB1 16r05 16r18 16rC4 \
  3632.         16r72 16r22 16r21 16r52 16rB1 16r05 16r10 16rC4 16rC0 16r72 \
  3633.         16r22 16r21 16r53 16rB1 16r58 16rC4 16rC0 16r72 16r22 16r21 \
  3634.         16r54 16rB1 16rC0 16r72 16r22 16rF3 16rF5] \
  3635.     #(  )) >
  3636.  
  3637. <primitive 112 pTempVar 6  " sectorsPerCylinder " \
  3638.   #( #[ 16r05 16r23 16r54 16rB0 16r71 16r50 16r53 16r10 16r21 16r30 16rFA \
  3639.         16r05 16rD1 16rF2 16r21 16r51 16rB1 16r05 16r18 16rC4 16r72 \
  3640.         16r22 16r21 16r52 16rB1 16r05 16r10 16rC4 16rC0 16r72 16r22 \
  3641.         16r21 16r53 16rB1 16r58 16rC4 16rC0 16r72 16r22 16r21 16r54 \
  3642.         16rB1 16rC0 16r72 16r22 16rF3 16rF5] \
  3643.     #( 12  )) >
  3644.  
  3645. <primitive 112 pTempVar 7  " numCylinders " \
  3646.   #( #[ 16r05 16r23 16r54 16rB0 16r71 16r50 16r53 16r10 16r21 16r58 16rFA \
  3647.         16r05 16rD1 16rF2 16r21 16r51 16rB1 16r05 16r18 16rC4 16r72 \
  3648.         16r22 16r21 16r52 16rB1 16r05 16r10 16rC4 16rC0 16r72 16r22 \
  3649.         16r21 16r53 16rB1 16r58 16rC4 16rC0 16r72 16r22 16r21 16r54 \
  3650.         16rB1 16rC0 16r72 16r22 16rF3 16rF5] \
  3651.     #(  )) >
  3652.  
  3653. <primitive 112 pTempVar 8  " totalSectors " \
  3654.   #( #[ 16r05 16r23 16r54 16rB0 16r71 16r50 16r53 16r10 16r21 16r54 16rFA \
  3655.         16r05 16rD1 16rF2 16r21 16r51 16rB1 16r05 16r18 16rC4 16r72 \
  3656.         16r22 16r21 16r52 16rB1 16r05 16r10 16rC4 16rC0 16r72 16r22 \
  3657.         16r21 16r53 16rB1 16r58 16rC4 16rC0 16r72 16r22 16r21 16r54 \
  3658.         16rB1 16rC0 16r72 16r22 16rF3 16rF5] \
  3659.     #(  )) >
  3660.  
  3661. <primitive 112 pTempVar 9  " sectorSize " \
  3662.   #( #[ 16r05 16r23 16r54 16rB0 16r71 16r50 16r53 16r10 16r21 16r50 16rFA \
  3663.         16r05 16rD1 16rF2 16r21 16r51 16rB1 16r05 16r18 16rC4 16r72 \
  3664.         16r22 16r21 16r52 16rB1 16r05 16r10 16rC4 16rC0 16r72 16r22 \
  3665.         16r21 16r53 16rB1 16r58 16rC4 16rC0 16r72 16r22 16r21 16r54 \
  3666.         16rB1 16rC0 16r72 16r22 16rF3 16rF5] \
  3667.     #(  )) >
  3668.  
  3669. <primitive 112 pTempVar 10  " dispose " \
  3670.   #( #[ 16r50 16r30 16r10 16rFA 16r03 16rDA 16rF2 16r55 16r50 16r10 16rFA \
  3671.         16r03 16rFA 16rF2 16r5D 16rF3 16rF5] \
  3672.     #( 40  )) >
  3673.  
  3674. <primitive 112 pTempVar 11  " newGeometryObject " \
  3675.   #( #[ 16r50 16r30 16rFA 16r02 16rDA 16rF1 16r60 16rF3 16rF5] \
  3676.     #( 39  )) >
  3677.  
  3678. <primitive 98 #DriveGeometry \
  3679.   <primitive 97 #DriveGeometry #ByteArray #AmigaTalk:System/CDDevice.st \
  3680.    #(  #private ) \
  3681.    #( #driveFlags #driveType #bufferMemoryType #sectorsPerTrack  \
  3682.        #numberSurfaces #sectorsPerCylinder #numCylinders #totalSectors #sectorSize #dispose  \
  3683.        #newGeometryObject  ) \
  3684.   pTempVar 3 6 > #ordinary >
  3685.  
  3686. pTempVar <- <primitive 110 6 >
  3687. <primitive 112 pTempVar 1  " privateInitializeDictionary " \
  3688.   #( #[ 16r20 16r30 16r51 16rD0 16rF2 16r20 16r31 16r52 16rD0 16rF2 16r20 \
  3689.         16r32 16r53 16rD0 16rF2 16r20 16r33 16r54 16rD0 16rF2 16r20 \
  3690.         16r34 16r55 16rD0 16rF2 16r20 16r35 16r56 16rD0 16rF2 16r20 \
  3691.         16r36 16r50 16rD0 16rF2 16r20 16r37 16r51 16rD0 16rF2 16r20 \
  3692.         16r38 16r52 16rD0 16rF2 16r20 16r39 16r51 16rD0 16rF2 16r20 \
  3693.         16r3A 16r52 16rD0 16rF2 16r20 16r3B 16r54 16rD0 16rF2 16r20 \
  3694.         16r3C 16r58 16rD0 16rF2 16r20 16r3D 16r05 16r10 16rD0 16rF2 \
  3695.         16r20 16r3E 16r3F 16rD0 16rF2 16r20 16r03 16r10 16r05 16r40 \
  3696.         16rD0 16rF2 16r20 16r03 16r11 16r05 16r80 16rD0 16rF2 16r20 \
  3697.         16r03 16r12 16r03 16r13 16rD0 16rF2 16r20 16r03 16r14 16r03 \
  3698.         16r15 16rD0 16rF2 16r20 16r03 16r16 16r03 16r17 16rD0 16rF2 \
  3699.         16r20 16r03 16r18 16r03 16r19 16rD0 16rF2 16r20 16r03 16r1A \
  3700.         16r03 16r1B 16rD0 16rF2 16r20 16r03 16r1C 16r03 16r1D 16rD0 \
  3701.         16rF2 16r20 16r03 16r1E 16r03 16r1F 16rD0 16rF2 16r20 16r03 \
  3702.         16r20 16r03 16r21 16rD0 16rF2 16r20 16r03 16r22 16r03 16r23 \
  3703.         16rD0 16rF2 16r20 16r03 16r24 16r03 16r25 16rD0 16rF2 16r20 \
  3704.         16r03 16r26 16r03 16r27 16rD0 16rF2 16r20 16r03 16r28 16r03 \
  3705.         16r29 16rD0 16rF2 16r20 16r03 16r2A 16r03 16r2B 16rD0 16rF2 \
  3706.         16r20 16r03 16r2C 16r03 16r2D 16rD0 16rF2 16r20 16r03 16r2E \
  3707.         16r03 16r2F 16rD0 16rF2 16rF5] \
  3708.     #( #TAGCD_PLAYSPEED #TAGCD_READSPEED #TAGCD_READXLSPEED #TAGCD_SECTORSIZE \
  3709.         #TAGCD_XLECC #TAGCD_EJECTRESET #CDMODE_NORMAL #CDMODE_FFWD #CDMODE_FREV \
  3710.         #CDSTSF_CLOSED #CDSTSF_DISK #CDSTSF_SPIN #CDSTSF_TOC #CDSTSF_CDROM \
  3711.         #CDSTSF_PLAYING 32 #CDSTSF_PAUSED #CDSTSF_SEARCH #CDSTSF_DIRECTION \
  3712.         256 #CTLADR_CTLMASK 16rF0 #CTL_CTLMASK 16rD0 #CTL_2AUD 16r00 #CTL_2AUDEMPH \
  3713.         16r10 #CTL_4AUD 16r80 #CTL_4AUDEMPH 16r90 #CTL_DATA 16r40 #CTL_COPYMASK \
  3714.         16r20 #CTL_COPY 16r20 #CTLADR_ADRMASK 16r0F #ADR_POSITION 16r01 \
  3715.         #ADR_UPC 16r02 #ADR_ISRC 16r03 #ADR_HYBRID 16r05  )) >
  3716.  
  3717. <primitive 112 pTempVar 2  " privateSetup " \
  3718.   #( #[ 16r10 16rA1 16rF7 16r07 16r20 16r80 16r00 16r60 16r20 16r80 16r01 \
  3719.         16rF2 16r20 16rF3 16rF5] \
  3720.     #( #privateNew #privateInitializeDictionary  )) >
  3721.  
  3722. <primitive 112 pTempVar 3  " getTag: " \
  3723.   #( #[ 16r20 16r21 16rB1 16rF3 16rF5] \
  3724.     #(  )) >
  3725.  
  3726. <primitive 112 pTempVar 4  " new " \
  3727.   #( #[ 16r20 16r80 16r00 16rF3 16rF5] \
  3728.     #( #privateSetup  )) >
  3729.  
  3730. <primitive 112 pTempVar 5  " privateNew " \
  3731.   #( #[ 16r20 16r90 16r00 16r71 16r21 16rF3 16rF5] \
  3732.     #( #new  )) >
  3733.  
  3734. <primitive 112 pTempVar 6  " isSingleton " \
  3735.   #( #[ 16r5B 16rF3 16rF5] \
  3736.     #(  )) >
  3737.  
  3738. <primitive 98 #CDTags \
  3739.   <primitive 97 #CDTags #Dictionary #AmigaTalk:System/CDDevice.st \
  3740.    #(  #uniqueInstance ) \
  3741.    #( #privateInitializeDictionary #privateSetup #getTag: #new #privateNew  \
  3742.        #isSingleton  ) \
  3743.   pTempVar 2 4 > #isSingleton >
  3744.  
  3745. pTempVar <- <primitive 110 11 >
  3746. <primitive 112 pTempVar 1  " new " \
  3747.   #( #[ 16r20 16r90 16r00 16rF2 16r20 16r31 16rB0 16rF3 16rF5] \
  3748.     #( #new 'Default_AmigaTalk_MPort'  )) >
  3749.  
  3750. <primitive 112 pTempVar 2  " new: " \
  3751.   #( #[ 16r56 16r21 16rFA 16r02 16rBF 16r60 16r21 16r61 16r20 16rF3 16rF5 \
  3752.        ] \
  3753.     #(  )) >
  3754.  
  3755. <primitive 112 pTempVar 3  " getMsgPort " \
  3756.   #( #[ 16r58 16r10 16rFA 16r02 16rBF 16rF3 16rF5] \
  3757.     #(  )) >
  3758.  
  3759. <primitive 112 pTempVar 4  " getNamedSystemPort: " \
  3760.   #( #[ 16r55 16r21 16rFA 16r02 16rBF 16rF3 16rF5] \
  3761.     #(  )) >
  3762.  
  3763. <primitive 112 pTempVar 5  " checkForPort " \
  3764.   #( #[ 16r54 16r10 16rFA 16r02 16rBF 16rF3 16rF5] \
  3765.     #(  )) >
  3766.  
  3767. <primitive 112 pTempVar 6  " sendMessageOutsideTo:msg: " \
  3768.   #( #[ 16r57 16r10 16r21 16r22 16rFA 16r04 16rBF 16rF2 16rF5] \
  3769.     #(  )) >
  3770.  
  3771. <primitive 112 pTempVar 7  " selectMessagePort " \
  3772.   #( #[ 16r50 16r58 16rFA 16r02 16rFA 16rF3 16rF5] \
  3773.     #(  )) >
  3774.  
  3775. <primitive 112 pTempVar 8  " sendMessage:msg: " \
  3776.   #( #[ 16r53 16r10 16r21 16r22 16rFA 16r04 16rBF 16rF2 16rF5] \
  3777.     #(  )) >
  3778.  
  3779. <primitive 112 pTempVar 9  " getMessage " \
  3780.   #( #[ 16r52 16r10 16rFA 16r02 16rBF 16rF3 16rF5] \
  3781.     #(  )) >
  3782.  
  3783. <primitive 112 pTempVar 10  " addPort:priority: " \
  3784.   #( #[ 16r51 16r10 16r21 16r22 16rFA 16r04 16rBF 16r5D 16rB6 16rF7 16r0C \
  3785.         16r20 16r30 16r11 16r0B 16r12 16r31 16r0B 16r12 16rBD 16rF2 \
  3786.         16r5C 16rF3 16rF2 16r5B 16rF3 16rF5] \
  3787.     #( 'MsgPort ' ' NOT added to System!'  )) >
  3788.  
  3789. <primitive 112 pTempVar 11  " killPort " \
  3790.   #( #[ 16r50 16r10 16rFA 16r02 16rBF 16rF2 16r55 16r50 16r10 16rFA 16r03 \
  3791.         16rFA 16rF2 16r5D 16rF3 16rF5] \
  3792.     #(  )) >
  3793.  
  3794. <primitive 98 #MsgPort \
  3795.   <primitive 97 #MsgPort #Object #AmigaTalk:System/MsgPort.st \
  3796.    #(  #private #portName ) \
  3797.    #( #new #new: #getMsgPort #getNamedSystemPort: #checkForPort  \
  3798.        #sendMessageOutsideTo:msg: #selectMessagePort #sendMessage:msg: #getMessage #addPort:priority:  \
  3799.        #killPort  ) \
  3800.   pTempVar 3 5 > #ordinary >
  3801.  
  3802. pTempVar <- <primitive 110 5 >
  3803. <primitive 112 pTempVar 1  " privateSetup " \
  3804.   #( #[ 16r10 16rA1 16rF7 16r74 16r20 16r80 16r00 16r60 16r20 16r31 16r32 \
  3805.         16rD0 16rF2 16r20 16r33 16r34 16rD0 16rF2 16r20 16r35 16r36 \
  3806.         16rD0 16rF2 16r20 16r37 16r38 16rD0 16rF2 16r20 16r39 16r3A \
  3807.         16rD0 16rF2 16r20 16r3B 16r3C 16rD0 16rF2 16r20 16r3D 16r3E \
  3808.         16rD0 16rF2 16r20 16r3F 16r03 16r10 16rD0 16rF2 16r20 16r03 \
  3809.         16r11 16r03 16r12 16rD0 16rF2 16r20 16r03 16r13 16r03 16r14 \
  3810.         16rD0 16rF2 16r20 16r03 16r15 16r03 16r16 16rD0 16rF2 16r20 \
  3811.         16r03 16r17 16r03 16r18 16rD0 16rF2 16r20 16r03 16r19 16r03 \
  3812.         16r1A 16rD0 16rF2 16r20 16r03 16r1B 16r03 16r1C 16rD0 16rF2 \
  3813.         16r20 16r03 16r1D 16r03 16r1E 16rD0 16rF2 16r20 16r03 16r1F \
  3814.         16r03 16r20 16rD0 16rF2 16r20 16r03 16r21 16r03 16r22 16rD0 \
  3815.         16rF2 16r20 16r03 16r23 16r03 16r24 16rD0 16rF2 16r5D 16rF2 \
  3816.         16r20 16rF3 16rF5] \
  3817.     #( #privateNew #RXCOMM 16r01000000 #RXFUNC 16r02000000 #RXCLOSE 16r03000000 \
  3818.         #RXQUERY 16r04000000 #RXADDFH 16r07000000 #RXADDLIB 16r08000000 \
  3819.         #RXREMLIB 16r09000000 #RXADDCON 16r0A000000 #RXREMCON 16r0B000000 \
  3820.         #RXTCOPN 16r0C000000 #RXTCCLS 16r0D000000 #RXFF_NOIO 16r10000 #RXFF_RESULT \
  3821.         16r20000 #RXFF_STRING 16r40000 #RXFF_TOKEN 16r80000 #RXFF_NONRET \
  3822.         16r100000 #RXCODEMASK 16rFF000000 #RXARGMASK 16r0000000F  )) >
  3823.  
  3824. <primitive 112 pTempVar 2  " arexxTag: " \
  3825.   #( #[ 16r20 16r21 16rB1 16rF3 16rF5] \
  3826.     #(  )) >
  3827.  
  3828. <primitive 112 pTempVar 3  " new " \
  3829.   #( #[ 16r20 16r80 16r00 16rF3 16rF5] \
  3830.     #( #privateSetup  )) >
  3831.  
  3832. <primitive 112 pTempVar 4  " privateNew " \
  3833.   #( #[ 16r20 16r90 16r00 16r71 16r21 16rF3 16rF5] \
  3834.     #( #new  )) >
  3835.  
  3836. <primitive 112 pTempVar 5  " isSingleton " \
  3837.   #( #[ 16r5B 16rF3 16rF5] \
  3838.     #(  )) >
  3839.  
  3840. <primitive 98 #ARexxTags \
  3841.   <primitive 97 #ARexxTags #Dictionary #AmigaTalk:System/ARexx.st \
  3842.    #(  #uniqueInstance ) \
  3843.    #( #privateSetup #arexxTag: #new #privateNew #isSingleton  ) \
  3844.   pTempVar 2 6 > #isSingleton >
  3845.  
  3846. pTempVar <- <primitive 110 5 >
  3847. <primitive 112 pTempVar 1  " value " \
  3848.   #( #[ 16r11 16rF3 16rF5] \
  3849.     #(  )) >
  3850.  
  3851. <primitive 112 pTempVar 2  " length " \
  3852.   #( #[ 16r55 16r10 16rFA 16r02 16rD3 16rF3 16rF5] \
  3853.     #(  )) >
  3854.  
  3855. <primitive 112 pTempVar 3  " dispose " \
  3856.   #( #[ 16r54 16r10 16rFA 16r02 16rD3 16rF2 16r55 16r50 16r10 16rFA 16r03 \
  3857.         16rFA 16rF2 16r5D 16rF3 16rF5] \
  3858.     #(  )) >
  3859.  
  3860. <primitive 112 pTempVar 4  " new: " \
  3861.   #( #[ 16r21 16rA3 16r72 16r21 16r61 16r53 16r21 16r22 16rFA 16r03 16rD3 \
  3862.         16r60 16r20 16rF3 16rF5] \
  3863.     #(  )) >
  3864.  
  3865. <primitive 112 pTempVar 5  " new " \
  3866.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  3867.     #( 'Use "new: aString" to instantiate ARexxArg!' #error:  )) >
  3868.  
  3869. <primitive 98 #ARexxArg \
  3870.   <primitive 97 #ARexxArg #Object #AmigaTalk:System/ARexx.st \
  3871.    #(  #private #myValue ) \
  3872.    #( #value #length #dispose #new: #new  ) \
  3873.   pTempVar 3 4 > #ordinary >
  3874.  
  3875. pTempVar <- <primitive 110 27 >
  3876. <primitive 112 pTempVar 1  " close " \
  3877.   #( #[ 16r50 16r10 16rFA 16r02 16rD3 16rF2 16r55 16r50 16r10 16rFA 16r03 \
  3878.         16rFA 16rF2 16r5D 16r61 16r5D 16rF3 16rF5] \
  3879.     #(  )) >
  3880.  
  3881. <primitive 112 pTempVar 2  " portNameIs " \
  3882.   #( #[ 16r05 16r16 16r10 16rFA 16r02 16rD3 16rF3 16rF5] \
  3883.     #(  )) >
  3884.  
  3885. <primitive 112 pTempVar 3  " setRexxVar:with: " \
  3886.   #( #[ 16r05 16r1C 16r10 16r21 16r22 16rFA 16r04 16rD3 16rF3 16rF5] \
  3887.     #(  )) >
  3888.  
  3889. <primitive 112 pTempVar 4  " getRexxVar:into: " \
  3890.   #( #[ 16r05 16r1B 16r10 16r21 16r22 16rFA 16r04 16rD3 16rF3 16rF5] \
  3891.     #(  )) >
  3892.  
  3893. <primitive 112 pTempVar 5  " checkRexxMsg " \
  3894.   #( #[ 16r05 16r1A 16r10 16rFA 16r02 16rD3 16rF3 16rF5] \
  3895.     #(  )) >
  3896.  
  3897. <primitive 112 pTempVar 6  " getArgument: " \
  3898.   #( #[ 16r21 16r51 16rCC 16rFC 16r04 16r21 16r05 16r10 16rC8 16rF7 16r09 \
  3899.         16r05 16r13 16r10 16r21 16r51 16rC1 16rFA 16r03 16rD3 16rF2 \
  3900.         16r21 16r51 16rC8 16rF7 16r07 16r05 16r13 16r10 16r50 16rFA \
  3901.         16r03 16rD3 16rF2 16r21 16r05 16r10 16rCC 16rF7 16r02 16r30 \
  3902.         16rA8 16rF2 16rF5] \
  3903.     #( 'argNumber value out of range for getArgument:'  )) >
  3904.  
  3905. <primitive 112 pTempVar 7  " setArgument:to: " \
  3906.   #( #[ 16r20 16r21 16r11 16r22 16r83 16r00 16rF2 16rF5] \
  3907.     #( #setArgument:for:to:  )) >
  3908.  
  3909. <primitive 112 pTempVar 8  " setArgument:for:to: " \
  3910.   #( #[ 16r21 16r51 16rCC 16rFC 16r04 16r21 16r05 16r10 16rC8 16rF7 16r0A \
  3911.         16r05 16r12 16r22 16r21 16r51 16rC1 16r23 16rFA 16r04 16rD3 \
  3912.         16rF2 16r21 16r51 16rC8 16rF7 16r08 16r05 16r12 16r22 16r50 \
  3913.         16r23 16rFA 16r04 16rD3 16rF2 16r21 16r05 16r10 16rCC 16rF7 \
  3914.         16r02 16r30 16rA8 16rF2 16rF5] \
  3915.     #( 'argNumber value out of range for setArgument:to:'  )) >
  3916.  
  3917. <primitive 112 pTempVar 9  " getSecondaryResult " \
  3918.   #( #[ 16r05 16r11 16r10 16rFA 16r02 16rD3 16rF3 16rF5] \
  3919.     #(  )) >
  3920.  
  3921. <primitive 112 pTempVar 10  " getPrimaryResult " \
  3922.   #( #[ 16r05 16r10 16r10 16rFA 16r02 16rD3 16rF3 16rF5] \
  3923.     #(  )) >
  3924.  
  3925. <primitive 112 pTempVar 11  " setRMAction: " \
  3926.   #( #[ 16r30 16r10 16r21 16rFA 16r03 16rD3 16rF2 16rF5] \
  3927.     #( 15  )) >
  3928.  
  3929. <primitive 112 pTempVar 12  " getRexxMsg " \
  3930.   #( #[ 16r30 16r10 16rFA 16r02 16rD3 16rF3 16rF5] \
  3931.     #( 14  )) >
  3932.  
  3933. <primitive 112 pTempVar 13  " arrayToArgs: " \
  3934.   #( #[ 16r21 16rA3 16r05 16r10 16rCC 16rF7 16r05 16r30 16rA8 16rF2 16r5D \
  3935.         16rF3 16rF2 16r31 16r10 16r21 16rFA 16r03 16rD3 16rF2 16rF5 \
  3936.        ] \
  3937.     #( 'inputArray too large for ARexxPort method!' 13  )) >
  3938.  
  3939. <primitive 112 pTempVar 14  " sendRexxCmd: " \
  3940.   #( #[ 16r30 16r10 16r21 16rFA 16r03 16rD3 16rF3 16rF5] \
  3941.     #( 12  )) >
  3942.  
  3943. <primitive 112 pTempVar 15  " isRexxMsg: " \
  3944.   #( #[ 16r30 16r21 16rFA 16r02 16rD3 16rF3 16rF5] \
  3945.     #( 11  )) >
  3946.  
  3947. <primitive 112 pTempVar 16  " fillRexxMsg:count:mask: " \
  3948.   #( #[ 16r30 16r21 16r22 16r23 16rFA 16r04 16rD3 16rF3 16rF5] \
  3949.     #( 10  )) >
  3950.  
  3951. <primitive 112 pTempVar 17  " clearRexxMsg:count: " \
  3952.   #( #[ 16r59 16r21 16r22 16rFA 16r03 16rD3 16rF2 16rF5] \
  3953.     #(  )) >
  3954.  
  3955. <primitive 112 pTempVar 18  " disposeRexxMsg: " \
  3956.   #( #[ 16r58 16r21 16rFA 16r02 16rD3 16rF2 16r55 16r50 16r21 16rFA 16r03 \
  3957.         16rFA 16rF2 16r5D 16rF3 16rF5] \
  3958.     #(  )) >
  3959.  
  3960. <primitive 112 pTempVar 19  " sendOutMessage:to: " \
  3961.   #( #[ 16r05 16r18 16r10 16r22 16r21 16rFA 16r04 16rD3 16rF3 16rF5] \
  3962.     #(  )) >
  3963.  
  3964. <primitive 112 pTempVar 20  " createRexxMsg:extension:port: " \
  3965.   #( #[ 16r57 16r21 16r22 16r23 16rFA 16r04 16rD3 16rF3 16rF5] \
  3966.     #(  )) >
  3967.  
  3968. <primitive 112 pTempVar 21  " selectARexxPort " \
  3969.   #( #[ 16r50 16r58 16rFA 16r02 16rFA 16rF3 16rF5] \
  3970.     #(  )) >
  3971.  
  3972. <primitive 112 pTempVar 22  " findARexxPort: " \
  3973.   #( #[ 16r05 16r17 16r12 16rFA 16r02 16rD3 16rF3 16rF5] \
  3974.     #(  )) >
  3975.  
  3976. <primitive 112 pTempVar 23  " fileExtension " \
  3977.   #( #[ 16r05 16r15 16r10 16rFA 16r02 16rD3 16rF3 16rF5] \
  3978.     #(  )) >
  3979.  
  3980. <primitive 112 pTempVar 24  " fileExtension: " \
  3981.   #( #[ 16r05 16r14 16r10 16r21 16rFA 16r03 16rD3 16rF2 16rF5] \
  3982.     #(  )) >
  3983.  
  3984. <primitive 112 pTempVar 25  " defaultExtension " \
  3985.   #( #[ 16r56 16rFA 16r01 16rD3 16rF3 16rF5] \
  3986.     #(  )) >
  3987.  
  3988. <primitive 112 pTempVar 26  " errorIs: " \
  3989.   #( #[ 16r52 16r21 16rFA 16r02 16rD3 16rF3 16rF5] \
  3990.     #(  )) >
  3991.  
  3992. <primitive 112 pTempVar 27  " open: " \
  3993.   #( #[ 16r21 16r62 16r51 16r21 16rFA 16r02 16rD3 16r60 16r05 16r19 16r10 \
  3994.         16rFA 16r02 16rD3 16r61 16r10 16rF3 16rF5] \
  3995.     #(  )) >
  3996.  
  3997. <primitive 98 #ARexxPort \
  3998.   <primitive 97 #ARexxPort #Object #AmigaTalk:System/ARexx.st \
  3999.    #(  #private #myRexxMsg #portName ) \
  4000.    #( #close #portNameIs #setRexxVar:with: #getRexxVar:into: #checkRexxMsg  \
  4001.        #getArgument: #setArgument:to: #setArgument:for:to: #getSecondaryResult  \
  4002.        #getPrimaryResult #setRMAction: #getRexxMsg #arrayToArgs: #sendRexxCmd: #isRexxMsg:  \
  4003.        #fillRexxMsg:count:mask: #clearRexxMsg:count: #disposeRexxMsg: #sendOutMessage:to:  \
  4004.        #createRexxMsg:extension:port: #selectARexxPort #findARexxPort: #fileExtension #fileExtension:  \
  4005.        #defaultExtension #errorIs: #open:  ) \
  4006.   pTempVar 4 6 > #ordinary >
  4007.  
  4008.